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INFORMATION IN THIS DOCUMENT IS 
SHOULD NOT BE 


CONSTRUED AS 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILTSY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS pec IS FURNI UNDER A LICENSE 
AND ONLY SUCH 
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PICENSE. ; 
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2.1 
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ABSTRACT 


he RKS1 Sts THAT COMPLETES. THE TESTING OF NG OF at Lot, fue 


SUBSYS THE DISKLESS C 

at pings tT ARE PREREQUISITES 
PR PURPOSE OF THIS PROGRAM IS TO TES HOSE 
N THE 60 THAT C NOT TES IN A DI 
HOSE AREAS THAT 


USI, ESP AO PUNE TBST PERT 


Seite "Whats elect ie aS See tari 
CE KES PERT HAY THROUGH” BIAGHOSTIC MODE TS THEN” RESET AND 
THE TO COMPLETE THE OPERATION. ING 
Lire cna eyae te Oe ce 
i Rese Does. ae 10" EXPLAIN WHY THESE ER 
BORO TT TONS. Bi NDIVIDUAL TEST DESCRIPTIONS 
SPECIFY WHAT MEE ROR IS BEING FORCED BNO THE PROG USED TO 

CAUTION 
THIS PROGRAM Y BY TYPING A tC. IF THE 
ae Bo Ne Tie HALT Kev Tie PoSsIBiLtTy Bxasye 
RODRESS cea IVE MAY Be dwar ro. oR orth ORIVE MAY Pa 


REQUIREMENTS 

HARDWARE REQUIREMENTS 
PDP-11 SYSTEM (16K MEMORY) 
CONSOLE” TERNIN TERAINGL 
LINE ME Ok faite ORT TONAL) 
PARITY OPTION (MMI1) (OPTIONAL) 


RK611 CON 
AT Least 1 AND UP TO 8 RKOG DRIVES 
FORMATTED RKO&K ON EACH DRIVE 


PRELIMINARY PROGRAMS 
THE RK611 DISKLESS CONTROLLER DIAGNOSTIC (ALL PARTS) AND THE 


SEG 0003 


cone FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLi 27(1006) OS-OCT-7& 09:17 PAGE 4 


ZREKC.P1) 01-OCT-76 13:08 


BRR ROR BBR RR PORES IS aad 2a SSHS FRO SO RA ee bb 


Patera tp tetetetet dt tat tet tetatate hehe he 0-* b= b-< b+ b= bb < Bb -< & + 0+ 2 & « B-2 & = &-2 & 2-2 DO =< bw +b + p< Bb  &0 #0 Bo 
for 


Tw 
© 
tu 


3.0 
3.1 


3.2 


3.3 


UNIBUS RKO& ORIVE OCIAGNOSTIC (ALL PRRTS) SHOULD HAVE RUN 
SUCCESSFULLY. 


OPERATING PROCEDURE 
LOADING PROCEDURE 


THE PROGRAM CAN BE LOADED FROM BINARY TAPE USING THE ABSOLUTE 
LOADER OR FROM XXDP MEDIA SUPPORTED BY XxOP. 


IT CAN BE LOADED AND RUN UNDER APT OR ACT AND IT CAN BSE 
CHAINED BY XXDP. 


STARTUP PROCEDURE 

THE PROGRAM START LOCATION IS 200(8). THIS START WILL 

BB le SHE stoked ONIBUS Rooks, t fais “PORES, 
210, AND 4 RESPECTI Y). ode 


ae eM Bo THe x00P FEL MEDIA IS'RKO& (PROGRAM L 
STRaTED a eQ0 a0 NOT otED. 


LOCATION 204(8) IS THE PROGRAM RESTART. 


SRI NP BS SERUM TS WR eT 


ano 6 PRIORITY, mE PROGR WAS QRDED ROH 
S42 TOR en TO ROUT & WORK ERR IDGE ON 
Rite, tHe OPERATOR HILL “LINE IF IT IS NOT TO SE TESTED. 
LOCATION 208) IS 7 Is THE ae PHASE LOCKED LOOP CLOCK 
STAR 7 RUNS THE FIRST THREE TESTS AND THEN 
Funes TO T ADJUSTMENT ROUTINE. T PROGRAM WZLL CONTINUE TO 
LOOP IN THIS ROU TRENT ROUTINE, THe Fe IS HALTED. 
aut DRIVES THAT BRE TO BE TESTED MUST BE ON-LINE, READY, AND 
RESET. _ TF ALL THREE COND ITIONS ARE NOT MET, THAT 
I OnOT TES 
CONSOLE SWITCH REGISTER 
THE SWITCH REGISTER IS USED TO PROVIDE PROGRAM CONTROL 
AS DESCRIBED BELOW: 
SW1S - HALT 
SW14 - LOOP ON TEST 
13 - INH BIT ERROR REPORT 
- PROGRAM AFTER 20 ERRORS 


1 
SW11 - INHIBIT ITERATIONS 
10 - ON ERROR 


- ON ERROR 
SWOE - EXECUTE EST NUMBER SPECIFIED IN SW<7-O>. 
SW<7-0> - EXECUTE THIS TEST IF SWOS SET. 


SES 2004 
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3.4 


3.5 


3.6 


EXECUTING A SPECIFIC TEST MUST BE “a WITH CAUTION. 


pe te I¢ RE RENNER On uRYTE” SPEETFIC Day DATA ae Tg Pig I ¢ 


OTHERS TO BE RUN INDIC THIS I ay crane IT re 


Sem a Fm Ma A 
“TEST DEvERMnes. watcn DRtves Ae On THE ORIVE Bus FOR 


BEFORE_-ANY gn IT, -oTHIs Test READS The 


eR a a A 
aD Eiical Fa Arbo BE ERE 


"SOFTWARE’ SWITCH REGISTER 
BR LI/O4 OR” 11/34) THe PROGRAM. ILL DETERMINE | THA Ti 


SOF TWARE * TOITCH REGISTER, te CP FFINGS oF 
Si TOMES. ARE CONTROLLED Trl A KEYBOARD Sle Sf te: Hs 


NG *CON G’. 
pernantt G’ AT ANY te. CEPT Wen Tue PRO PROGRAR I aria a richer 
PRIORITY PROCESSING AN RKO& INTERRUPT. THE ‘SOF * SWITCH 
VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 

PROMPT FROM THE SWITCH ENTRY ROUTINE: 


SWR = NNNNNN NEW =’ 
EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROES ARE NOT 
REQUIRED. "RUBOUT’ AND "CONTROL U’ FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 
ON PROCESSORS W H_ HARDWARE ySeltcH REGISTERS, THE ‘SOFTWARE’ 
SWITCH REGIS ¥. ty IF THE PROGRAM FINDS ALL 1é 
SWITCHES sup" TION, ALL SWITCH REGISTER REFERENCES 
WILL BE TO " SOFTWARE REGISTER AND THE PROCEDURES 
DESCRIBED ABOVE "Hist FOLL 
CONTROL C (*C) OPERATION 
IF *C IS TYPED AT ANY TIME DURING THE PROGRAM EXECUTION THE 
PR S HALTED IMMEDIATELY. IF A MONITOR IS PRESENT (XXDP 
CHAIN, ACT. APT) THE PROGRAM CONTROL TO THE MONITOR. 
IF NO MONITOR IS PRESENT, THE cH iy HALTED. DEPRESSING THE 
CONTINUE KEY WILL DO A PROGRAM RE 
CONTROL S (tS) OPERATION 


IF tS I Tyree AT ANY 7 THE 4, OGRAM WILL GO INTO A STALL 
LOOP UNTIL A CONTROL @ (tQ) IS TYPED. 
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CONTROL Q@ (t@) OPERATION 


BEEN TYPED, TYPING THE ¢@ CANCELS THE STALL 
INITIATED BY TH HE ¢S. 


UNIBUS ADDRESSES 


STANDARD UNIBUS ADDRESSES ARE ASSUMED FOR THE KW11-L 
OPTIONS. THESE ADDRESSES MAY BE CHANGED BY C 
APPROPRIATE ga LOCATIONS. THE FOLLOWING TAGS AND 
LOCATIONS HAVE BEEN USED: 


2B 
# 


KW11-L TAG LOCATION 
UNIBUS ADDRESS KWLADD 1676 
— ADDRESS KWLVEC 1700 
UNIBUS ADDRESS 
aS ene |OUR 
VECTOR ADDRESS NIVEC™ 17 
EXECUTION TIME 


APPROXIMATELY 


THE FIRST PASS OF THE PROGRAM F S 
CONDS AND EAC MATELY 6 MINUTES 


OR 
SO SE H SUBSEQUENT PASS IS APPROX 
SO SECONDS. 

DR 


THE PECTIN TIME FOR MULTIPLE T OF THE 
NUMBER DRIVES TIMES Se SE PASS. FOR 
SUBSEQUENT paRSeS THE RUN TIME I MINUTES ee 


OF 
BEY UE BET Ute pie MUMEER DRIVES PLUS 2S SECONDS F 
PROGRAM DESCRIPTION 
i Mo eames TEST SEQUENCE IS EXECUTED ASSUMING TWO OR MORE 


a 
ae 


FIRST PASS - FIRST DRIVE: 
ALL TESTS UP TO THE MULTI-DRIVE OPERATIONS ARE PERFORMED ONCE. 


FIRST PASS - ALL REMAINING DRIVES: 

STATUS VALID TESTS UP 10 THE MULTI-DRIVE OPERATIONS ARE 
PERFORMED ONCE ON EACH DRIVE. 

THEN MULTI-DRIVE OPERATIONS ARE PERFORMED ONCE ON EACH 
COMBINATION OF DRIVES. 
SECOND AND ALL SUBSEQUENT PASSES: 

THE SAME SEQUENCE OF TESTING IS REPEATED EXCEPT FOR TEST 
ITERATIONS WHICH ARE SPECIFIED FOR EACH TEST. 


SEAELLAEREAELALARASAAAELAELERELALAAALERALELALERLLLELELARLERELE 
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##BASIC INTERFACE AND OPTION TESTS 
LELLALERESERERAAREREREE SES ERS EERE ESE SEES EERE LEE LRALESESESESE SS 


TEST 1 RK611 BASE ADDRESS TEST 


CHECK THAT READING THE RKE11 —_ — (RKCS1) DOES 
NOT CAUSE A NON-EXISTANT MEMORY T 


TEST 2 INTERRUPT VECTOR ADDRESS TEST CHECK THAT THE 
eet VECTOR FOR THE RKG11 IS SET TO THE EXPECTED 


SHAKALALALAAALAAALAAALALELALELLLELLFLELELELALELELELRESLEESLELE 


##STATUS VALID TESTS 
Se SE SA A SE EEE EAR A AE db de de dR Ee ae eA aE EAE AE EEE EE EE EEE REE EE 


TEST 3 SELECT ALL DRIVES 


IF NOT RUNNING IN APT AUTOMATIC ENVIRONMENT, DETERMINE 
DRIVES ON-LINE BY SELECTING ALL ORIVES. IF 


IF RUNNING IN APT AUTOMATIC ENVIRONMENT, THE DRIVES 
IDENTIFIED IN ETABLE ARE TESTED FOR NO ERROR, DRIVE 
CYCLED UP, AND STATUS VALID SET. 


Kee PS ie i Hel 


Wao TS nD NOT TESTEDY ae RESTART (204) Ore SRE TATA 
Est STATUS OF DRIVE 0. 


IF THE PARAM START IS USED OPERATOR MUST EITHER 
PLACE DRIVE O OFF LINE tr’ IT IS NOT T 


0 BE TESTED OR 
UNL AND A SCRATCH MEDIA MOUNTED IF IT IS 10 
TESTED. THE PROGRAM WILL MONITOR OFF LINE AND VOLUME 
VALID TO DETERMINE THE TEST STATUS OF DRIVE O. 


THE DRIVE MUST 8 BE ongtigt NE ace CYCLED UP, AND WRITE 
ENABLED. IF CONDITIONS | IS NOT T 
THAT DRIVE IS Nore TESTED AND sa 1S CTED 
OFF =-L ADDRESSING THAT DRive™ TPE MOLL D % 

RON-EXISTANT DRIVE ERROR. AT COMPLETION OF THE TEST A 
MESSAGE WILL BE GIVEN TO IDENTIFY THE DRIVES TO BE 
USED IN TESTING. 


NOTE: THIS TEST MUST BE RUN AT LEAST ONCE BEFORE ANY 
OTHER TEST THAT FOLLOWS. 


TEST 4 RELEASE ALL DRIVES 


237 
fie 
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RELEASE ALL DRIVES. MAKE SURE NO ERROR SETS AND 
STATUS VALIO IS RESET. 


TEST S NON-STANDARD MESSAGES AND SVAL 
PICK ONE OF THE gt ay DRIVES AND GET 


NON-STANDAD 

. NO ERROR OCCURS AND STATUS VALUD 

DOES NOT SET AND THAT NON-STANDARD MESSAGES CAUSE 
STATUS VALID TO RESET. 


TEST 6 WRITING CS2 AND STATUS VALID 
SELECT AN AVAILABLE DRIVE. MAKE SURE STATUS VALID IS 
SET. _ WRITE COMMAND AND STATUS REGISTER 2. MAKE SURE 
STATUS VALID RESETS. : 

SRE EERE REE RR AE AE EE AR SEAR EAE EEE EEE HEHEHE HEHEHE SEE EE HEE EE EE EEE EEE 


#*CONTROLLER ERROR TESTS 
SEER EERE REE EH EH EE EEE LE EAE EEE EE EERE RELL EEE EEE 


TEST 7 ORIVE TYPE ERROR 


CREATE A DRIVE TYPE ERORR MAKE SURE DRIVE TYPE ERROR 
SETS AND STATUS VALID SETS. 


TEST 10 STATUS VALID AND PARITY ERROR = 
ISSUE A peur l TO TO AN AVAILIABLE DRIVE WITH BAD PARITY. 


7 


ANDARD MESSAGES 
AND MAKE SURE ONLY DRIVE INTERRUPT AND ATTENTION ARE 
SET. CLEAR ATTENTION WITH DRIVE CLEAR. REPEAT FOR 
ALL AVAILIABLE DRIVES. 


TEST 11 UNIT FIELD ERROR ON RELEASE 
ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE DRIVE. 
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A RELEASE 
COMMAND. CL HROUGH PHASE ADDRESS 2. TURN OFF 
DIAGNOSTIC MODE. MAKE SURE UNIT FIELD ERROR SETS. 

TEST 12 UNIT FIELD ERROR ON SELECT 


eo ee _ ONTROLLER™ TN” DIAGNOSTIC " Hopes issue a SEL SELECT 


OMMAND WITH MESSAGE ID = 3 AND DRIVE SELECT Q. 
cLock THROUGH PHASE ADDRESS 6. TURN OFF DIAGNOSTIC 
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MODE. MAKE SURE UNIT FIELD ERROR SETS. 
SESE RE SER SER EA AE A SE AE AEE EAE dE AR AE A A AE A a SER EEE EE EEA HEE HEE HEE EEE EER EE EEE EE 


®*ATTENTION HANDLING BY CONTROLLER 
SERRE REE Re EEE AEE RR REAR EEE Ae EAE EERE AR EAE EAE EE EEE EEE EEE 


TEST 13 DOUBLE INTERRUPT 
ME PATHE VALID 18 mene T. CK Aaa tt 
Seed Ee log pithy le Mal ats 

vert sts. REET AR pATeES SEHECK ears Brive’ eraTte 
CHANGE SETS (BIT 14 OF DRIVE STATUS REGISTER) 

TEST 14 SINGLE INTERRUPT FROM ATTENTION 
DO A SEEK TO CYLINDER ©. WAIT FOR INTERRUPT FROM 
DRIVE ATTENTION. LOWER PRIORITY AGAIN AND MAKE SURE 
ANOTHER INTERRUPT DOES NOT OCCUR.~ CLEAR DRIVE. 

TEST 15 RESET ATTENTIONS WITH UNIBUS INIT 


DO A SEEK TO CYLINDER O ON AVAILIABLE ORIVES. 
ISSUE A RESET. MAKE SURE ALL ATTENTION RESET. 


KKLRAAEL ALLELE LEAL LLL LLAKELALALE LALA RALELELERELAELELERERELE LEE 


#£ILLEGAL DISK ADDRESS ERROR TESTS 
Se RS SEE SAE EAE AE A A AER dE EE AR AE AEE AEE SEE ESE HEE HEHE HEHE EAE HEE HEHEHE HEE EERE EERE EEE 


TEST 16 ILLEGAL DISK ADDRESS (PART 1) 


ISSUE A SEEK TO CYLINDER 0, HEAD 3. MAKE SURE ILLEGAL 
SS ETE SETS. Gen 
ONTROLLER AND CLEAR DRIVE. 


REPEAT FOR HEADS 
EAE CKING THAT BOTH IDAE AND SEEK Marte ©: SET TOR 
HEAD 7 AND IDAE ALONE SETS FOR HEADS 4, 5S, AND 6. 


TEST 17 ILLEGAL DISK ADDRESS (PART 2) 
ISSUE A SEEK TO CYLINDER 1000 0. MAKE SURE 
ILLEGAL DISK ADDRESS ERROR SETS. HETEAR CONTROLLER AND 


KERLLALEE LALA ALLA LALA AREAL LE LAL ALARA LAER ALAA REL EAALLERERAAAES 


#*WRITE HEADER TESTS 
Se He MME HEHEHE HEAR AE RE EEE EE HEHEHE HEHEHE AE EE EEE HEE HEE HEE EE EE EE A EA EE EE 


TEST 20 READ BAD SECTOR INFORMATION 


ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632, TRACK 
e a. Ger : THE FACTORY DETECTED BAD SECTOR FILE, 26 
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Been canes 


UNUTUN UU Un cnunniuniu 
sb bs bs hs bn pe he 
WONMUI CWO 


SOREL ae SOON Sees 


IF AN ERROR OCCURS, READ SE é, e. 

Mlb APA eal it rr ee 
PADK AND STORE THE ENTRIES FOR CATER 

REPEAT THIS SERIES OF OPERATIONS FOR FACTORY DETECTED 


EEtroRe ce Secfor “RODE, AND. "soPYunme” OETEETED BRO 


SECTORS 24 SECTOR MODE. OF BAD SECTORS 
FOR 24 OR 26 CYOR MODE EXCEED 20010) THE ORIVE IS 
REMOVED FROM TESTING. 


pore: THIS TEST IS RUN IN THE FIRST (QUICK VERIFY) 
PASS ONLY. 


TEST 21 FORMAT IN 26 SECTOR FORMAT 


FORMAT T CYLINDER 31 TRACK 1 FOR 26 SECTOR 

FORMAT ‘Eoanet “ato HAT DATA LATE DID NOT 
OCCUR WITH WRI IN READING DATA BUFFER 
AFTER READ 


seesesnsannueeeeeeeessagunenuceeeeeeeesssssneneeneeeesenssaasy 
* 
SHEAARALKRLA LALLA LALLA EAA LARELALERE LE RA EARLE LELERERAL ELE LLL ELLE 


TEST 22 BAD SECTOR ERROR 


FORMAT CYLINDER 312, TRACK 0, ON SCRATCH PACK TO HAVE 
SECTOR O (BIT 15 OR WORD 2 of HEADER RESET) AND SECTOR 
1 (BIT 14 OR WORD 2 R RESET) TO BE BAD SECTORS 
AND ALL OTHER SECTORS GOOD. 


ISSUE A WRITE DATA OR 400 WORDS TO CYLINDER 312, TRACK 
TOR 0. SURE BAD SECTOR ERROR SETS.’ ISSUE 
A’WRITE DATA TO CYLINDER 0, TRACK O, SECTOR 1 OF 400 
WORDS. MAKE BAD SEC CTOR ERROR OF ISSUE A WRITE 
DATA OF 400 WO 0 CYLINDER 0, TRACK 0, SECTOR 2. 
MAKE SURE NO ERROR SETS. 


TEST 23 HEADER VRC ERROR 


FORMAT CYLINDER 312, TRACK 0, ON SCRATCH PACK TO HAVE 

16 SECTORS age ee HEADER VRC R vee. ISSUE A WRITE DATA OF 

cr WITH A BAD HEADER VRC. MAKE SURE 

VRC SETS ¢. 1EcvE one WRITE DATA TO A GOOD 
ADER AND MARE oie NO ERROR OCCURS. 


TEST 24 BAD SECTOR ERROR AND HVRC ERROR 


FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR ZERO. HAS 
BOTH A B CTOR ERROR AND HEADER VRC. ISSUE A WRITE 


SEG 0010 
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40 

a 

ed DATA TO CYLINDER 0 TRACK 0, SECTOR 0. MAKE SURE ONLY 
ev HEADER VRC ERROR SETS 

Se TEST 25 OPERATION INCOMPLETE 

4g 4 FORMAT CYLINDER 312, TRACK. 0 SUCH THAT SECTOR 21 HAS 
549 é THE WRONG FORMAT. ISSUE WRITE DATA OF 400 TO 
50 CYLINER 0, TRACK 0, SECTOR 21" MAKE SURE OPI SET. 

55 : TEST 26 OPI WITH HVRC ERROR 

Bee FORMAT CYLINDER 312, TRACK O SUCH THAT A HEADER 

ERROR IS PRESENT AND SECTOR 17 HAS THE WRONG FORMAT. 

coe ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312, TRACK 
a4 ' 0. TOR 17. THAT BOTH OPERATION INCOMPLETE AND 
559 . 

560 TEST 27 HVRC IGNORE ON NON-ADDRESSED SECTOR 
Ste FORMAT CYLINDER 312, TRACK 0 aust THAT SECTOR 20 HAS 
oe HVR TSSUE AHR RITE TE DATA OF a 400 dros TO 
fle CYLINOER Sen OP ack 0, HVRC 


56s IS NOT SET AT THE END OF se SEPERATION. 


a ee — ee 
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oss Mitre itttre ree ULee LeeLee eee 
#*DATA TRANSFER TESTS 
rua SSSEEERSSSSESLESSESATAUSESESULESEREEGSEREREERRUEREDREEANDDODES 
573 TEST 30 WRITE AND READ ONE SECTOR 
75 FORMAT CYLINDER 312, TRACKS CYLINDER 12i3s 
7 e “WRIT DATA “OF TH Bao SECTOR F ite he Teach 
f 
378 : ae phe "SEETOR Oe Moat 4 WITH WHAT + 
580 
56 TEST 31 WRITE DATA WITH BUS ADDRESS INCREMENT INHIBIT 
583 ISSUE A WRITE DATA OF ONE SECTOR TO CYLINDER 312, 
cay TRACK 2, SECTOR le WITH INHIBIT BUS BODRESS uPNCRENENT 
BBs READ DATA BACK TO MAKE SURE EVERY WORD 1S SAME AND 
587 : 
58 TEST 32 WRITE DATA ADDRESS GREATER THAN 32K 
590 ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 177770. 
e2 MAKE SURE CORRECT DATA IS ON DISK. 
5$3 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K OF 
22! MEMORY IS PRESENT. 
536 TEST 33 READ DATA ADDRESS GREATER THAN 32K 
598 ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 177770. 
P33 CHECK MEMORY FOR CORRECT TRANSFER. 
| £0; NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K OF 
E02 MEMORY IS PRESENT. 
q 604 TEST 34 WRITE DATA ADDRESS GREATER THAN 64K 
606 ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 377770. 
B07 MAKE SURE CORRECT DATA IS ON DISK. 
609 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 64K OF 
£10 +3 | MEMORY IS PRESENT 
p12 TEST 35 READ-DATA-@BDRESS GREATER THAN 64K 
614 ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 377770. 
bls CHECK MEMORY FOR SORRECT TRANSFER. 
| 617 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 64K OF 
big MEMORY IS PRESENT. 
| 620 TEST 36 WRITE DATA ADDRESS GREATER THAN 96K 
i 
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55 

624 ISSUE @ WRITE DATA OF 400 WORDS WITH ADDRESS = 577770. 
625 MAKE SURE CORRECT DATA IS ON DISK. 

pss NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 96K OF 
bee MEMORY IS PRESENT. 

TEST 37 READ DATA AODRESS GREATER THAN 96K 

bse ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = $77770. 

p34 CHECK MEMORY FOR CORRECT TRANSFER. 

£35 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 96K OF 
637 MEMORY IS PRESENT. 

633 TEST 40 PARTIAL SECTOR WRITE DATA 

641 ISSUE A WRITE DATA OF 103 WORDS TO CYLINDER 312, HEAD 
642 0. SECTOR O. MAKE SURE THE SECTOR WAS ZERO FILLED 
B43 CORRECTLY. 

bus TEST 41 PARTIAL SECTOR READ DATA 

647 WRITE CYLINDER 312 TRACK 0, SECTOR ZERO WITH A KNOWN 
£48 CONFIGURATION. ISSUE READ DATA OF 103 WORDS TO 
643 CYLINDER 312, TRACK 0, “SECTOR 0. MAKE SURE ONLY 103 
B50 T TRANSFERRED TO MEMORY. 

bbe TEST 42 WRITE DATA WITH NON-EXISTENT MEMORY 

654 ISSUE A WRITE DATA OF 1 WORD USING ADDRESS 776000. 
pS MAKE SURE NON-EXISTENT MEMORY SETS. 

B57 TEST 43 READ DATA WITH NON-EXISTENT MEMORY 

6593 ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000. 

G60 MAKE SURE NON-EXISTENT MEMORY SETS. 

bbe TEST 44 UNIBUS PARITY ERROR 

ae INITIALIZE. A MEMORY LOCATION WITH BAD PARITY. ISSUE A 
65 WRIT 400 WORDS STARTING AT A LOCATION 110 
656 WORDS BEFORE fhe LOCATION WITH BAD PARITY. MAKE SURE 
667 THAT UNIBUS PARITY ERROR SETS. 

69 NOTE: THIS TEST IS ONLY EXECUTED IF MEMORY PARITY 
70 OPTION EXISTS FOR BUFFER. 

672 SEEKER GEE ELE SESE EERE EERE EEEE LEER E RESALE RELA REA ER REEL ERELERE 
673 **MULTIPLE SECTOR OPERATIONS 

Poe EELSLERLELE ELE EEE EE REALS LAE A LEAL E SEERA ELAS ALAA EAALA ELLA ERELE 


67€ TEST 45 TWO SECTOR WRITE DATA (PART 1) 
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5 
f= 
686 SSUE A WRI 1 TO CYLINOER 312 
681 eae cE PGR 0. OF Tee DATA BACK ONE SES toR a3"4 
8s TIME AND Bae eRe IT IS CORRECT. 
= TEST 4& TWO SECTOR WRITE DATA (PART 2) 
eS ISSUE A WRI TA OF 1000 TO CYL 
687 cE OBR 3. am, are BACK ONE seetee ate 
3 ee D-TRANSFER SEEK DID NOT ae 
690 
621 TEST 47 TWO SECTOR WRITE DATA (PART 3) 
TA TO i 
bas ASE FoR IO; READ DA Th Beck ore keto a a Fine ane 
ee CHECK ZERO iu oF SECOND SE 
ce TEST SO MID-TRANSFER SEEK ON WRITE (PART 1) 
{ 699 ISSUE A unite pare OF 1000 RD TO CYLINDER 212, 
| 70 Tine AND’ make GuRE Fro eiQuseis BER ONE Secon ATE 
os TEST S1 MID-TRANSFER SEEK ON WRITE (PART 2) 
705 SUE A WRI TA QF 1 TO CYLINDER 31 
706 TRACK 2 SECTOR oS REAo DATA BACK ONE SecToR StTA 
707 ane’ MARE SURE Af MID-TRANSFER SEEK DID TAKE PLACE. 
308 TEST S2 TWO SECTOR READ DATA (PART 1) 
poe ti ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 
ig 0, SECTOR 0, VERIFY THAT CORRECT DATA IS READ. 
| 714 NOTE: TWO SECTOR WRITE DATA (PART 1) MUST BE EXECUTED 
| 15 BEFORE THIS TEST. 
32 TEST S3 TWO SECTOR READ DATA (PART 2) 
719 ; DATA OF 1000 WORDS TO CYLINDER 312 TRACK 
| 720 O, SECTOR 29, VERIFY THAT CORRECT CATA IS READ AND A 
z RANSFER SEEK DOES NOT OCCUR. 
723 NOTE: TWO SECTOR WRITE DATA (PART 2) MUST BE EXECUTED 
re BEFORE THIS TEST. 
ree | TEST S4 TWO SECTOR READ DATA (PART 3) 
iS | SSUE A READ DATA OF 401 WORDS TO CYLINDER 312, TRACK 
«es Becton 10.” VERIFY THAT ALL 401 WORDS ARE PLACED IN 
ion: ae 


732 NOTE: TWO SECTOR WRITE DATA (PART 3) MUST BE EXECUTED 


wa ie 
oo 
o 
zy 
- 
~~ 
~4@ 
o« 


Seana 


“3 
ya 


rr 
qurue- 


SIRREHE BIT AA SIAC LATER COE NT Se ae 


0i-0CT 


COe 


ONAL eg pmermaraci MACYLi 27(1006) OS-OCT-76 09:17 PAGE 15 


BEFORE THIS TEST. 
TEST SS MID-TRANSFER SEEK ON READ (PART 1) 
ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 
0 CTOR 2S. VERIFY THAT CORRECT DATA IS READ AND A 
mtp- SEEK DOES OCCUR. 
NOTE: NID-TRANSEER ON WRITE (PART 1) MUST BE 
THIS TEST. 
TEST S& MID-TRANSFER SEEK ON READ (PART 2) 
ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 
3 SECTOR 2S. VERIFY THAT CORRECT DATA IS READ AND A 
MID-TRANSFER SEEK DOES OCCUR. 


NOTE: MID-TRANSFER SEEK ON WRITE (PART 2) MUST BE 
EXECUTED BEFORE THIS TEST. 


TEST 57 CYLINDER ADDRESS OVERFLOW (PART 1) 
ISSUE 8 READ _D DATA oF 400 WORDS TO CYLINDER 632, TRACK 
CTOR SURE CYLINDER ADDRESS OVERFLOW 
ERROR DOES noe occuR 
TEST 60 CYLINDER ADDRESS OVERFLOW (PART 2) 
ISSUE A READ D DATA OF 401 WORDS TO CYLINDER 632, TRACK 
e anak SECTOR 2 en MAKE SURE CYLINDER ADDRESS SVERFL OU 


preeeegoeesyreisesassineessanunSeSOt 


£#% 
##18 BIT DATA TRANSFER TESTS 
LELLLASESARERERSEERELRAEEEEEE EERE RALALLLLL ERELESEEESEE SEES ERE 


TEST 6&1 FORMAT IN 24 SECTOR FORMAT 
FORMAT CYLINDER 312, TRACK O 


AND TRACK 1 FOR 24 
SECTOR FORMAT. VERIFY FORMAT AND THAT DATA LATE DID 
NOT OCCUR WITH WRITE HEADER ON IN READING DATA BUFFER 


AFTER READ 

TEST 62 24 SECTOR FORMAT DATA TRANSFER (PART 1) 
SSE oe 4 “faite id * 400 4 IN ata SECTOR FORMAT TO 
3 ay , AD SECTOR BACK AND 


eetRE I id IS Cc CORRECT 
TEST 63 24 SECTOR FORMAT DATA TRANSFER (PART 2) 


LOAD A LOCATION WITH BAD PARITY. ISSUE A WRITE DATA 
OF 400 WORDS IN 24% SECTOR FORMAT TO CYLINDER 3le, 


SEG 0015 
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FERC eR TERS 


co CODCOD CO CD CD CD CD cD cD 
+ > 20 + 0-< > «b+ p+ +> <6 
00 NIU £ ture 


ee me 


FREES BEM PRS 


co 
S 


ret TN 


PP 
Feat 


TRACK 0, tie otlTH BUFFER 8 BEGINNING 110 itghos 
Fanos oot hol SET. READ oterok''s PERO MAKE SURE IT 


NOTE: THIS TEST IS EXECUTED ONLY IF MEMORY PARITY 
EXISTS FOR SPECIFIED LOCATION. 


TEST 64 24 SECTOR FORMAT DATA TRANSFER (PART 3) 
ISSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FORMAT 


eo Rae SiRe’ IT Teac 0, s comet. mer ane FS 


MID-TRANSFER SEEK 


SLELLEAFLLLSAALSSESLEALE LE LE LLAALLELLLES LL ELE ELESLLLLAESELE SESE 


##SPECIAL DATA TRANSFER TESTS 
LEFLALELELERELEEAELRES EERE SESE EERE LEAL EAL LALA EER ESE REE EEE EE EEE 


TEST 65 MULTI-SECTOR DATA TRANSFER AND BSE 
FORMAT CYLINDER aie. Te C. IN 26 SECTOR FORMAT WITH 
1000 WORDS 


SeCIOR bene® Oe en WRITE DATA OF 
oe CYLINDER 312, TRACK 0, SECTOR O. MAKE 


CTOR ERROR RROR SETS AND RKDA IS OR ORRECT. READ SECTOR 0 
MAKE SURE IT IS CORRECT. 


ISSUE A READ DATA OF 1000. Wo WORDS TO CYLINDER 312 TRACK 
SECTOR 0. MAKE SURE BAD SECTOR ERROR SETS AND THE 
Cae TBLis SECTOR IS LOADED CORRECTLY INTO MEMORY” 


TEST 66 FORMAT TEST 


FORMAT aor gl2, TRACKS O AND 1 IN 26 SECTOR 
FORMAT. NO ERRORS SET. READ SECTORS 0-25 
AND MAKE SURE DATA CHECK DOES NOT OCCUR. 


SESASAAARELRALAAA ALLA LAAL AE RARAEL ALLL ELLLELAAALELE RAL AALSALELELE 


#*WRITE CHECK TESTS 
SESAERLEEELALE SERA RE LER ESEL REA RES EAE SEALER EEARE RARER ELSE EEE SES 


TEST 67 WRITE-CHECK WITH NO ERROR 
UR TE CYLINDER 312, TRACK 0, SECTOR O WITH A KNOWN 
BITERN. DO A WRITE-CHECK OF 400 WORDS. MAKE SURE NO 
ERROR OCCURS. 
TEST 70 WRITE CHECK ERROR (PART 1) 
WRITE CYLINDER 312, TRACK 0 SECTOR O WITH ALL ZEROES. 
WRITE CHECK CYLINDER ale, wyerck SECTOR 0 WITH SAME. 


DATA EXCEPT WORD One’ THE FOLLOWING 
CONFIGURATIONS: 


Somos 


ee ee 


E 
: 
: 
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0200 i 
CONE LEURRT Tons. AN Tat FR °Eus BooRESS ANG LORD COUNT 
5 CORRECT. 


TEST 71 WRITE CHECK ERROR (PART 2) 


WRITE CYLINDER 312, TRACK 0, SECTOR OG WITH 17777 IN 

. WRI CK CYLINDER gle TRACK 0, ee TO 
O WITH THE SAME DATA EXCEPT WORD 120 HAS ONE THE 
FOLLWOING CONFIGURATIONS 





MAKE SURE WRITE CHECK. ERROR SET FOR EACH OF THE 
CONe een TONS AND THAT THE BUS ADDRESS AND WORD COUNT 


TEST 72 WRITE CHECK OF PARTIAL SECTOR 


WRITE CYLINDER 312, TRACK 9, SECTOR WITH 
CONFIGURATIONS.  {SSUE A WRITE CHECK COMMAND OF 110 
WORDS MAKING SURE THE 111TH WORD IS DIFFERENT THAN 
DATA ON DISK. MAKE SURE WRITE CHECK ERROR DOES NOT 


SKELKALLALELALAAAL ALLA LA LLL SALE ELLLALELLLERL SAA RELELESLSLLEES 


#*MAXIMUM DATA TRANSFER 
ELEEEEERERERERLAAL REE EEE ER RERE ALE RE LER E EERE RE EEREL LE LE LEED REE 


TEST 73 MAXIMUM DATA TRANSFER (PART 1) 


IN THE FIRST PASS OF THE PROGRAM, THE HEADERS OF THE 
FIRST 4 CYLINDERS ARE WRITTEN. THIS IS DONE TO INSURE 
THE FORMAT IS CORRECT. 


ZERO OUT, THE FIRST 256 SECTORS OF THE DISK WITH ONE 

SECTOR WRITES. ISSUE A SEEK TO CYLINDER 0, TRACK O. 

ISSUE A WRITE DATA OF MAXIMUM DATA TRANSFER 

WORDS TO CYLINDER O, TRACK O, SECTOR 0. MAKE SURE 

CONTROLLER TIME OUT IS NOT SET. CHECK CYLINDER 
SS. DISK ADDRESS, BUS ADDRESS AND WORD COUNT. 

READ ofhCH SECTOR TO MAKE SURE IT WAS WRITTEN 


NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS 


age 
3 


Bene 


0.0.0.0 0.00.00 
O— b+ 0+ = 0 0+ 00 -* Bape 
20 NUP U1. GU 


SE Uke EARS PR RSL Uni ice tL pa 
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aate PRESENT IN THE FIRST 2S&6 SECTORS ON THE 


TEST 74 MAXIMUM DATA TRANSFER (PART 2) 
ZERO OUT FIRST 256 SECTORS OF THE DISK WITH 200000 
La a THE MAKE. SURE 
sx" AbbreS; Bs “AboREES ani" oro’ "EBURY. 


SEEK TO “EILINOER 8 be od ISSUE A WRITE CHECK OF 200000 
WORDS. MAKE SURE NO 


NOTE: THIS TEST IS EXECUTED ONLY IF_NO BAD SECTORS 
ARE PRESENT IN THE FIRST 256 SECTORS ON THE 


TEST 75 CONTROLLER TIME OUT 


SEEK TO CYLINDER 632. ISSUE A RECALIBRATE AND DO NOT 
WAIT FOR oe INTERRUPT. NOW ISSUE A READ HEADER OF 
EYLIMOER 0, TRACK 0. MAKE SURE CONTROLLER TIME OUT 


ee eee eae ee 


##ERRORS DURING DATA TRANSFE 
SESH RE SE EE AE A A A ESE EE EAE EE EAE EAE AE ER RE EE aE EE 


TEST 76 LIMIT DETECT ON DATA TRANSFER 


ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. ISSUE 
A SEEK TO CYLINDER 2 WITH BAD PARITY. ISSUE A DRIVE 
CLEAR. ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 1, 

TRACK 0, HEAD 0. SEEK INCOMPLETE BECAUSE OF OUTER 


TEST 77 PROGRAMMING ERROR 
ISSUE A SUBSYSTEM CLEAR. ISSUE A READ DATA OF 400 


ON CYLINDER 0, TRACK 0, SECTOR 0. DURING READ 
el A WRITE TO THE SPARE’ REGISTER. MAKE SURE 


AMMING ERROR SET 
TEST 100 ECC HARD 
ISSUE A SueeysT MC ove TER 4 wpe DATA 
ROW MATE ah 2EROS 10. YL "TRACK nek 0." SECTOR. : 
uRITE ISSUE sent en MAKE 
PROGRREM ING ERROR IS RESET. A_READ DATA TO 
ay , TRACK O, HEAD Mo AND AN ECE HARD ERROR 


TEST 101 DRIVE TIMING ERROR 
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957 

359 

aca ISSUE A SUBSYSTEM CLEAR. SEEK TO CYLINDER 632. ISSUE 

1 A RECALIBRATE BUT DO NO ett FOR SECOND NTERRUP 

Es SEER oF CTL INDE g, Trak i cu Rr i SEEK ie 

365 I SHEEN ERROR SHoulb SET BePauSe st} NO Be 

66 TRANSISTIONS ON DATA LINE 

ae8 SHSFSEESLASAFAAFSESASSSSSSLSSSLESELLLALALALRALELALESARALSLLLLKAAEAASE 
##ERROR FORCING IN DRIVE 

Fe LEREEESEEEESFRYE EEE SE EEES EES ERS EEE RERE PEELE RE FLEL ESS ESLEAS SSE LES 

é 

are TEST 102 INITIALIZE CLEARING SACK 

$74 iSSe SUBSYSTEM CLEAR. SELECT AN AVAILABLE DRIVE. 

975 A use YSTEn CLEAR. PUT CONTROLLER IN DIAGNOSTIC 

S76 MODE . ISSUE SELECT COMMAND WITH MESSAGE ID = 3 AND 

$77 DRIVE SELECTED 0. CLOCK THROUGH PHASE ADDRESS 6. 

978 TURN OFF DIAGNOSTIC MODE. FAKE SURE UNIT FIELD ERROR 

a3 DOES NOT SET. 

381 TEST 103 DRIVE OFF TRACK 

$e2 ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. ISSUE 

ge4 OFFSET OF +1200 MICRO-INCHES. PUT CONT IN 

aes DIAGNOSTIC ; ISSUE WRITE DATA OF 1 WORD TO 

986 CYLINDER 0, TRACK CTOR 0. CLOCK THROUGH 

997 DRIVE CLEAR MESSAGES. TURN DIAGNOSTIC MODE 

98e DRIVE OFF K SET IN DRIVE. REPEAT ALL 

383 AVAILIABLE DRIVES 

331 TEST 104 FILE UNSAFE 

993 ISSUE A SUBSYSTEM CLEAR. ISSUE A RECLAIBRATE. IS 

394 READ HEAD OF CYLINDER 0, TRACK O IN 24 SECTOR 

ze EOP in SPESeu ait ir CO 

i eS ohides A rBuG'S Se" fae etcfO "e 

998 LOCK THROUGH SEEK AND DRIVE CLEAR MES S. SIMULATE 

a93 INDEX PULSE. TURN OFF DIAGNOSTIC MODE. FILE UNSAFE 

1000 SHOULD SET BECAUSE OF ATTEMPTING TO WRITE THROUGH 

1091 SECTOR PULSE. REPEAT FOR ALL AVAILIABLE DRIVES. 

1003 TEST 10S DUMMY TEST FOR PREVIOUS TEST EXIT 

100s THIS TEST IS PRESENT TO MAKE S$SWO8TB TABLE HAVE 

1006 ENTRY WHICH RELATES TO “NEWDRV". THIS IS NECESSARY fe 

1007 AN ERROR OCCURS IN THE PRECEEDING TEST AND T ERROR 

1008 REORTS THE TEST. IF THIS TEST WERE NOT PRESENT: THE 

1009 PROGRAM WOULD SKIP THE “NEWORV” ROUTINE AND GO TO’ THE 

1916 TEST FOLLOWING “NEWORV™ 

1012 IN ADDITION, THE DRIVE IS CLEARED AND THE HEADS ARE 


. ce 
} 


rs 


cc a 


elt OL Fee TIONS, CONTROL! 
ll 01-OCT-76 13:08 
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ALLOWED TO RELOAD. THIS MUST BE DONE TO PREVENT 
WNEXPERTER eur is FROM THE DRIVE BECOMING READY AT 


LRELEREELERELEEEE EAE REESE ERE EE EEE EEL ELLE EE LE LALEL SESE EES 
##MULTI-DRIVE OPERATIONS 

SER RE ER Ae ER EEE EEE EEE EEE EEE EEE AEA ELELELELS EE 
TEST 106 RESET ATTENTIONS WITH UNIBUS INIT 


DO A RECALIBRATE ON ALL_AVAILIABLE DRIVES. ISSUE A 
RESET. MAKE SURE ALL ATTENTION RESET. 


TEST 107 RESET ATTENTIONS WITH SUBSYSTEM CLEAR 


DO A RECALIBRATE ON ALL AVAILABLE DRIVES. ISSUE A 
SUBSYSTEM CLEAR. MAKE SURE ALL ATTENTIONS RESET. 


TEST 110 SVAL AND ATTENTION FROM OTHER ORIVE 
DO A a ohedy ON ONE AVAILABLE DRIVE 


al, ETERS nT Eilat eel ale Pa 


eee REMAINS SET AND ORIVE STATUS CHANGE 
REMAINS RE 


REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES. 


NOTE: THES TERT MLL. OMY BE DONE IF AT LEAST TWO 


TEST 111 OVERLAPPED OPERATIONS 


Seek “GH DRIVE AUTO CrLINOER i. YRREDIRTELY TSSUE 


WRITE aprta TO CYLINDER 1 
THE END OF a TRENSEER HG NC ERRORS SHOULD 
Be set ToND oF uae ATTENTION SET. 


REPEAT FOR ALL COMBINATIONS OF TWO DRIVES. 
NOTE: IF ONLY ONE DRIVE IS AVAILABLE THE TEST WILL 
NOT BE DONE. 


ERROR REPORTING 
A DETAILED DESCRIPTION OF_ THE ERROR FORMATS AND REPORTS 


CONTENTS IS GIVEN HERE. THIS IS ESSENTIALLY THE SAME AS CAN 
BE FOUND IN THE LISTING COMMENTS UNDER THE ERROR POINTER 


ERROR POINTER TABLE: 
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1069 
1071 


— 


SESP RSE RSCERERRERCE RIT IIT eae 


+0 + 0+ + +b +6 &* b= 6 8 -+ 2 8 -* = b= 2 Bb = 2 Ob + b= Bb = hs 2 = = = b+ bs bs 2 


eS et eo eee eee 
NB ibw Vow can-ODSVRR FOES 


tw 
ty 
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THIS TABLE CONTAINS THE INFORMATION FOR EACH 
Been TRATES. a Aste GL A 
SHEE HiT 1 4 OY RIDES Elid SO 


fn MeO POINTS ONS ERROR MESSAGE 
::POINT 19 THE DATA HEADER 

DT ;;POINTS TO THE DATA 

OF :POINTS TO THE DATA FORMAT 
EM AND DH ARE ASCIZ BATA. EM IS ALWAYS A MESSAGE BUT DH CAN 
BE A MESSAGE OR A SET OF COLUMN LABELS SPACED ACCROSS THE 
PAGE. DT IS A STRING OF WORDS THAT POINT TO THE DATA TO BE 
T AND DF IS A STRING OF WORDS THAT TELL HOW WORDS 
ARE TO BE TYPED. IF ANY OF THE POINTERS , FOP A 
PARTICULAR FORMAT, IT IS REPLACED WITH A ZERO. T 
USAGE OF THE ERROR TABLE IS TO HAVE A FOR EACH 


TABLE _ENTRY 
ERROR MESSAGE THAT CAN OCCUR. IN THE INTEREST OF ECONOMICS OF 
CORE MEMORY, THIS PROGRAM USES THE ERROR TABLE IN A SIGHTLY 


THE ERROR TABLE ENTRIES MAKE UP A SET OF Se FORMATS _THAT 

ARE D T WHEN AN ERROR IS TO BE 

REPORTED, THE TABLE ENTRY THAT PROVIDES THE DESIeD FORMAT IS 

CHOSEN FROM THE DEFINED SET. THE TABLE ENTRY CHOSEN IS THEN 

NG THE FIRST (AND POSSIBLY THE SECOND) WORD 

Reb TRING THAT MAKES UP THE 

MESSAGE PORTION OF ORT. THE DATA FIELDS FOR THAT ENTRY 
ARE NEVER CHANGED, NOR ARE THE COLUMN LABELS OR POSITIONS. 


FORMAT THAT EACH TABLE ENTRY PROVIDES IS SHOWN BELOW WITH 
Stig, Ber OTTO OF THE ENTRY. ALL DATA FIELDS ARE TYPED IN 
ane ITEM 1 

SSAGE ) 


TST NUM ERR PC ORIVE 
STESTN SERRPC DRVNUM 


ERROR ITE 
ace) 
(MESSAGE ) 
NUM ERR PC 
STESTN SERRPC OR 
S1 RKCS2 RKDS RKER RKASOF RKDCYL RKDA 
Csl eat T.0S T.ER T.ASOF T.DCYL 1.DA 


T.WC 


TST NUM ERR PC DRIVE 


SEG 002: 
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b+ 0 0 bb b+ B= b— b= = Fb 0-* 0 0 8 0 b= 0 8 Bs = 0 0 0 0 0 = = 2 Bb bb b+ 8 2&2 be bs D2 = po b= P= & + b = bo 9 0 hs os Bh 


N 
he) 
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STESTN SERRPC_ DRVNUM 
CS1 RKCS2 RKDS RKER RKASOF RKMR1 
T.CSi 1.CS@ 1.05 T.ER T.ASF 6 T.MRI 


Pen Te 38, AND 7 ARE USED TO REPORT ERRORS THAT 


ARE 

THE OF ICATOR BEING SET WHEN NOT 
EXPECTED NOT NOT 1 firOWaRS ERO HD. MOR Bean THE ERROR 
REPORT Wt conTayh (1) ALL THE ERR T WERE DETECTED, (2) 
ALL THE E ERRORS THAT DID NOT accuR THE 
AND THE UNEXPECTED® BUT SET ERRORS. 


THE MESSAGE ITSELF EXPLAINS THE CIRCUMSTANCE FOR THE REPORT. 
Eee . THE REPORT WILL BE ONE OR MORE OF THE FOLLOWING 


“THE ABOVE ARE EXPECTED ERRORS THA 1 DF 
“THE ABOVE ARE UNEXPECTED ERRORS SET I 
“THE ABOVE ARE ERRORS SET IN OPERATION:” 


PRECEEDING ANY OF _THESE Lies WILL BE ONE OR MORE LINES 
THAT SPECIFY THE EXACT ERROR. FOLLOWING THE I 
A LINE THAT IDENTIFIES THE OPERATION BEING PERFORMED. 


*ZzoO 
"9a 
ond 


EXAMPLE: 
NON-EXISTANT DRIVE 
THE ABOVE ARE ERRORS SET IN OPERATION: 
DRIVE SELECT 


(ADDITIONAL LINES OF INFORMATION) 

THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION. 
EXAMPLE: 

NON-EXISTANT DRIVE 

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 
DRIVE SELECT 

(ADDITIONAL LINES OF INFORMATION) 


THIS IS -THE RESULT OF AN EXPECTED ERROR THAT DIO NOT OCCUR, 
I.E. A NON-EXISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET. 


EXAMPLE: 

NOt-EXTS TANT MEMORY 

THE VE ARE UNEXPECTED ERRORS SET IN OPERATION: 

UNIBUS PARITY ERR 

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 
WRITE DATA 


(ADDITIONAL LINES OF INFORMATION) 


THIS IS AN EXAMPLE OF NON-EXISTANT MEMORY BEING SET WHEN 
UNIBUS PARITY ERROR WAS EXPECTED. 
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en 


ERROR ITEM 
(DESCRIPTION OF ERROR) 


COHRY Fem 


STESTN SERRPC DRVNUM eae tn mri 
weet Kees SER Rtor RENE 
ea | TAWA 
f Aol  BOl Ade p02 aA03 2803 
SREGIO S$REG11 SREGI2 SREGI3 SREGI4Y SREGIS SREGIE SREGI7 
THE ERONTROLLER DETECTED DRIVE BUS ERROR 
IVE DETECTED DRIVE BUS E 


INC TE 
“EAECUTRELE DRIVE FUNCTION 
VE TIMING ERROR 

UNSAF: 


RROR 
WRITE LOCK ERROR 
fis ENTRY is THE SAME AS ITEM 4 WITH THE ADDITION OF A 
MESSAGE THAT FOLLOWS. THIS MESSAGE IS: 
“ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID” 


THIS REPORT WILL BE PRINTED WHEN THE GATHERING OF DATA FOR ADO 
THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR. 


ERROR ITEM 6 
(DESCRIPTION OF ERROR) 
ERROR IN OPERATION 
tDESCRIPT ION OF OPERATION) 
TST NUM ERR PC DRIVE 
ad SERRPC_ DRV 


NUM 
RKCS1 RKCS2 RKDS RKER RKASOF RKDCYL RKDA 
T.CS1 1.CS2 1.DS T.ER T.ASOF T.DCYL T.DA 


RKBA 
T.BA T.WC 
THE ERRORS REPORTED BY THIS FORMAT ARE: 


DATA CHECK 
WRITE CHECK 
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ECC HARD 
DATA LATE 
OPERATION I LETE 


Bho SEcToR 


ERROR I 
( DESCRIPTION a taee 


CDeScRTPTION OF Yr ‘Bereriov 


CS1 aPC, Dri RKER RKASOF 
T.CS1 1.CSe 1T.DS T.ER T.ASOF 


RRORS REPORTED BY THIS FORMAT ARE: 
XISTANT DRIVE 

-EXISTANT MEMORY 

TROLLER TIME OUT 

MULTIPLE DRIVE SELECT 

PROGRAMMING 


UNIBUS PARITY ERROR 
ILLEGAL FUNCTION CODE 


DESCRIPTON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR 
ILLEGAL. 


ERROR ITEM 8 
(DESCRIPTION OF ERROR) 
free AT COMPLETION OF alla 
OEScaIPT TN OF OPERATION 
TST NUM ERR PC DRIVE 
STESTN ERRPC 
EXPT IS 
SREGIO SREG11 
THE ERRORS REPORTED BY THIS FORMAT ARE SOFTWARE DETECTED BY 
COMPARING EXPECTED RESULTS WITH ACTUAL RESULTS. THE SPECIFIC 
ERRORS ARE: 
WORD OT INCORRECT 
BUS ADDRESS INCORRECT 
CYLINDER ADDRESS INCORRECT 


SECTOR ADORESS INCORRECT 


ERROR ITEM 1 
(ERROR Ihorcaror OR STATUS BIT) 


NOT SET RE 
CenoTHER ERR a i STATUS BIT, OR OPERATION 


RKCS1 RKCS2 RKDS RKER RKASOF RKMR1 
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LATALALALALTALATATAT A) 
ss ss bs a ee 
WONO UT CWO. 


SERSRIEASE 


BEB 


SIRES 


BEEoey 
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T.CS1 1.CS2 1.05 T.ER T.ASOF T.MRI 


a 1S ERROR 18 IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
“NOT RESET AS A RESULT OF” 


TEM 
Fis ERROR 18 IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
“SET AS A RESULT OF” 


ERROR _ITEM 
THIS ERROR is IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 


“RESET AS A RESULT OF” 
ERROR ITEM 15 


(HEADER WORD MISCOMPARE) OR (DATA MISCOMPARE ) 
TST NUM ERR PC DRIVE 


STESTN SERRPC 
WORD NUM 
SREG1O S$REG11 SREGIe 
ERROR ITE 


M 16 
ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 15S. 
SUBROUTINES 


IN THE INTEREST OF CONSERVING MEMORY, IT IS NE 

EXTENSIVE USE OF SUBROUTINES. HOWEVER, IN 

PRESERVING CODE READABILITY, SUBROUTINE NAMING 

OF THE FUNCTION PERFORMED. THE SUBROUTINE 

SnaLL AND IN GENERAL A SUBROUTINE ONLY Y_PERF ORI 

LOAD THE RK611 REGISTER ND START AN OPE (TLOADRK} 

bee iaart A SPECIFIED NUMBER OF MILLISECONDS FOR AN INTERRUPT 

OF ATA S FROM CALL TO CALL AND IS THE TIME TO 

WAIT). THE PBLLOWING IS A DESCRIPTION OF THE SUBROUTINES NOT 
PROVIDED BY SYSMAC: 


KKKLAALAA RA LEAL EA RAAE RA LALLELAL KELL RELA EKRLEL ELE RELA LE LELELELEE 


LINE CLOCK CALIBRA 
HEE EERE EEE EEE EEE EE EEE EAE EERE EE EEE 


WAITS FOR ALINE CLOCK ene TO CALIBRATE THE 
INTERRUPTS TO A + a) ed TIME VALUE. IN ADDITION IT 
PRESETS THE TIMCNT IF THERE IS NO LINE CLOCK. TIMCNT 
IS USED IN THE LINE CLOCK SIMULATOR. 


CALL: JSR PC, CLKCAL 


REA H EEE EEE EEE EERE EEE L AERA EEE EE EELS EEE EEE EERE AREER ELE EE 
OPTION PRESENT TEST AND SETUP 


CESSARY TO MAKE 
r ry OF 
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é 


atu tf 


CRE RER PRESS Ate cialis 


& 


bb bb bb bs = bb bb bs be 0 2 bs 0 2 Fo 0 0 -  B - Ce oe ed en od 
- 


Soctierie tier et tit iets 


=) 


: 
8 





SESEEAEAELEALAASELLALELERE LEELA ERA A LEAS LAL ELLE ALS LEEA LEAL RA ELE 


THIS ROUTINE CHECKS IF THE MEMORU PARITY OPTION AND 
THE LINE COC RE Oe OTRES AND’ THE “APPROPRIATE 
INTERRUPT VECTORS ARE SET LP.’ 

CALL: JSR PC, OPTTST 


ELEEEEEG LEER SLE E EELS LEE EE ALE EEE EEE ALLER EEE EEERE LER ERLLE LEASE 


LINE CLOCK SIMULATION ROUTINE 
SEE SEAR SEER SEE SEE HEHE EEE EAR EEE HE EEE EE EE ERLE ELE 


THIS ROUTINE IS USED TO SIMULATE THE LINE CLOCK. 10 
DO THIS The VALUE STORED IN MILCNT IS USED AS THE JASE 
BND REPRESENTS THE NUNGER OF TIMES A DECREMENT END 
BRANCH LOOP CAN IN 1 MILLISECOND. THE TIMCNT 
VALUE IS DECREMENTED AND IF IT REACHED 0. THE LINE 


cL Oe TICK COUNTER BUMPED. HEN THE T 
a) TO 16 (REPRESENTS 16 MILLISECONDS PER LINE CLOCK 


THUS THE ROUTINE RETUPNS TO THE CALLER AFTER 1 
ag Fa BUMPS THE LINE CLOCK TICK COUNTER FOR 


CALL: JSR PC, MYTIME 


EEELK ALEGRE ELE EAE EE ELLE EGER EEE REE EAE LE ELE EEE ERE EERE EER EERE 


WAIT FOR INTERRUPT ROUTINE — 
KEKE AEE EEE REE EEE EEE EEE EEE EEE EEE EEE EEE EEE EERE ER EEE EE 


THE ROUTINE IS ENTERED BY ONE OF FOURTEEN TRAP CALLS. 
THE CALL SPECIFIES HOW MANY TICKS OF THE LINE CLOCK 
ARE TO ELAPSE WH ITING. FOR INTERRUPT. IF 
INTERRUPT opet} NOT SeUR N_THAT_ PERIOD OF TE. AN 
RR S (BUT NOT PRINTED IN THE 
ROUTINE)AND THEN RETURNS TO THE LOCATION FOLLOWING THE 


N 
THE CALL TO INTERRUPT WAIT. 


CALL: TWATI6 THROUGH TWATIS9, TWATIS, TWATeS, 
TWATBS, AND TWATIM 


HH EEL EEL E EEE EE EERE EEE REE EEE REE EE REE REE EER ERERERE 


"L” REGISTER LOADING ROUTINE 
KR EE EAE EEE EEE EEE HEE EAE EAE HEHEHE HEHE HEHE EE EE ERE ERE EEE EEE EERE REE 


THE PARAMETERS FOLLOWING THE CALL ARE TRANSFERRED INTO 
THE “L” REGISTERS L.CSI-L.DCYL. L.MR1 IS NOT LOADED .. 
IN THIS MANNER SINCE IT IS NOT COMMONLY LOADED FOR AN 

OPERATION. L.CS2 IS LOADED FROM DRVNUM. 











1446 


nn ee 
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CALL: JSR RY, LRLOAD 
OMMAND 


C 

WORD C 

BUS $ 

ga: CTOR ADDRESS 
RACK ADDRESS 

CYLINDER ADORESS 


SHEFSSFSLSLSLSSSLELSSSLLLSLSLELSLAELELLSLSLSLESLESSESESLASLALES 


LOAD RKE1i FOR OPERATION 
EESFLEESESESSLESS EES EESESERSLELE EELS LEEE EEE SSEESS ESSE ERLE EERE 


THE REGISTER Al ae S TRANSFERRED TO THE RKEi1 


REGISTER. WITH NO 
CHECKING OR man PERIBUL ATION * y te REGIS CONTENTS. 
gE home chrme AS IT SHOULD BE IF THE GO 


CALL:  TLORDRK 
SREELESESELESSSERSEEELEREESESSRSLEESRESELELEEEREEEEEESEER EEE ES 


STORE RK611 REGISTERS 
SERELESASSSSRESSRERESEESERES LESSEE LEAL LLLALELES SEES SEES ESE SE 


THE RK611 ST TORED PML. 3 THE TEST TABLE T 
att A by cEBTION NF tie DATA BUFFER WHICH IS NOT 
STORED IN THIS ROUT 
CALL: TGETRK 
PeeeT eT TTT tT Tit et tte titi titi itt ttt t ttt tttititttttiitstitetsit ty 


SIT COUNTER IN A WORD 
SESSSSSEERESEESEEESEEL ELLE REL ELERAAAREREREREEESERERE REE EE LES 


Te MOD Ose OTS aT Ee Re ee ON THE 

STACK BY_ THE CALLING ROUTINE. HE NUMBER OF SITS 

FOUND IN THE HIORD ARE PASSED BAEK ON THE STREK. 

CALL: JSR R4, BITCNT 
SEFLEAESESAELELSLALLALALSLSLASLALAASELELELELELELEELLELELLELERE 
MAINT K ROUTI 
SHLELALAASLELALELLAELE AE LELALELELELERELELELSLLAELLESELELERELEL 

ig Sa ea aie 

re Be PURSES "PobrESSES ee CALLING ROUT! 

QUE CONTROLLER Ce HROUGH AND THE SECOND 
BYTE CONTAINS THE NUMBER OF SE DCK TRANSITIONS (PARTIAL 
PHASES) TO BE DONE. 


CALL: JSR RY, MCLOCK 
BYTE ;NUMBER OF CLOCK TRANSISTIONS 


i 
2g 


SEISGEEEA, 


e 
3 


+o 
ei 
nes 


et et et Se 
fftce 
wed 


+6 +9 
+ 


SRARREBROB Ja 


eS 
Ni 
-- 


TEEEEEEEEEEEEELELEL 
RP 88:54 


ree 


E 
8 


Baan 


+ 02 hs a hs he 
ee atetetat ata 
0+ 0 b+ 0+ b= 
iNSWwM-O 
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BYTE ;NUMBER OF PHASE ADDRESSES 
SERERESEASSSSSELESESLELESESESESERESES ESLER ELEESESES ESSE SSE RE SE 
LEELERSSSSELSSSERESEEEAEEEELLLLEEL LE LLLLLES ELSE ESEEE SEES TEESE 


Ms 3 i. ees fF IN Tg S*Lpess AND Re iD tap et BY L | 
RESCENOING ORGER. “CONTROLLER ARE CHECKED. IN 
fre READ HEADER RATION AND DATA LATE IS CHECKED 
AFTER EACH READ OF TH DATA BUFFER. 


CALL: JSR R4 , ROSTHD 


TCHKOP a POINT IF CERR IN READ 
ERROR 4 

ERROR 13 ipa tr DATA LATE IN DB 
ERROR 2 ;RETURN IF TO SLOW OR 


;I1F HOR O NOT FOUND 


SHFFLSFELSEESLLAELRELELSALLEL SLA AALALE LES LALALSSLLELELLLELELELE 


GET DRIVE STATUS 
SEREEESERELLLAEE ERLE EE EEE EEL LA AEEEERLLLEE RESEEEAEREE ES ER EEE 


THIS ROUTINE GETS ALL THE DRIVE STATUS AND PLACES IT 
IN SREGIO THROUGH + ae A THESE REGISTORS ARE FIRST 
CLEARED TO ALL ONES AND THEN IF ERROR OCCURS WHILE 
GETTING STATUS, THE 1’S ARE LEFT IN THE REGISTERS. 


CALL: JSR R4, GETORS 
ERROR PROCESSING ERROR RETURN 
NO ERROR PROCESSING GOOD RE 


SHESFLALLLESELALLLA LLL LAA SLLALLLASA RELL LALAL FELALELELELLSLERELES 
SUBSYSTEM 


INITIALIZE AND INITIALIZE STATE TEST 
SERERERERRERRER EEE EEE REEL EERE RARAE AREA RARER REET EEE EERE EEE 


THE SUBSYSTEM IS wit 7/5 WITH A SUBSYSTEM CLEAR 
COMMAND . RR DI_ARE MONITORED ae A SHORT PEIROD 
OF TIME DURING WHICH THEY SHOULD BOTH RESET. 

IF THEY DO RESET, READY IS TESTED TO INSURE IF SETS. 


IF ANY OF THESE THREE CONDITIONS ARE NOT MET AN 
APPROPRIATE ERROR MESSAGE IS PARED REPORTED 
WHEN THE ROUTINE RETURN TO THE CALL. IF EVERY THING 
IS G000, THE RETURN SKIPS OVER THE ERROR CALL AND TEST 


THE USUAL CALL TO THIS ROUTINE WILL BE FOLLOWED BY AN 
ERROR MESSAGE AND BRANCH TO_END OF TEST. THIS IS DONE 
BECAUSE FAILURE TO INITIALIZE CORRECTLY IS FATAL TO 





SEG 9022 








RKE1] FUNCTIONAL CONTROLLER DIAGNOSTIC MACYL1 27(1006) OS-OCT-7& 09:17 PAGE 29 
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181 
ei 
2g THE TEST 
1258 i 
ts CALL: TSSINIT 
1523 SHEFEESFLERSLSSSSLSRELE SLL SHALE SALE RSLE SEAS SSASSSELLL ELSES SS SSS 
ts 4 WORD COUNT AT END OF OPERATION CHECK 
12 SLELESSSLERELSSSELELSSAALEESESSSSASSELSSESLELESSASELES EASES SES 
1527 THIS wut INE a, THE CONTENTS OF THE og ges 
1358 coun He RO nine AGAINST es | or a 
i al FLAG ACER) S IN vA ee 
ia PRRk UAL TH EREOR 
1532 CALL: JSR RY, CHKWC 
te . WORD sEXPECTED WC VALUE 
ie SESEEELSSELEEESSEALLE LAA EEL LL SAASELALESSASELALERESELELE ELSE ELE 
1 BUS ADDRESS AT END OF OPERATION CHECK 
a4 , SPHERESESLLELESRELELESSRLLLLELESLELLL LASS SLLLERSSSSLAL ESSE ES ES 
1 THIS ape COMPUTES THE EXPECTED BUS ADDRESS AT THE 
is40 END OF TRANSFER BY USING THE INITIAL BUS ADDRESS 
1541 ADDING IN" ei oer WORD COUNT, AND TRACTING ANY 
ta ee Hoe eon: he Ea seu . poss wr 
i Ee IN ee 4 ES FIELD ¢ ) 
1S4€ IF BUS ADDRESS INCREMENT INHIBIT WAS SET, THE EXPECTED 
4 BUS ADDRESS IS THE STARTING BUS ADDRESS. 
ie CALL: JSR R4, CHKBA 
1553 SEFEAESASELEESSLESSEALESSREL ELA SERLAL SESE SELLA LE SEAALE LAL SSS ED 
1 CYLINDER, TRACK,SECTOR TEST AT END OF OPERATION 
1225 be SEEEESERAREEEEEREREREREEEREREEEEEEEEEE LE EEE FELEEEREREEEEEEEEEE 
igss THIS aROuTENe rece Cre cee, THAT THE CONTENTS OF THE RKDCYL © 
1556 AND RKDA FOR ANY SIZE me TRANSFER AT THE 
1557 END OF THE SOERATT i THE CONTENTS THE LOAD 
16S REGISTER STORAGE ARE COUNTED ON TO HAVE THE ENITIAL 
1373 VALUES TO MAKE THE NECESSARY CALCULATION. 
1561 ALL THREE VALUES ARE GENERATED AND STORED IN EXPECTED 
1Sé2 VALUES STORAGE EXPCYL, EXPTRK, EXPSEC. ALL 3 ARE 
1563 CHECKED AND IF "OR ARE WRONG THE 
tae epee DING BIT IN THE ERROR FLAGS FIELD (GRPGER) Is 
1566 
24 CALL: JSR R4Y, CHKCTS 
15&93 SHSSEELSSSELLESEESSERALLA ASE SSLALSESALAERRSRAERL RAS SRARAL HAE LSLE 
1570 OPERATION CHECK ROUTINE 
1571 SELAHERASSSFSSSLLLSSESESLELEASEALALESAARLLLAALSELALERARAEAERRRR 
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THIS IS WHERE ALL HARDWARE ERROR INDICATORS AND 


er Seis 


POU TS AS FOLLOWS: THE ROUTINE Io°¢ 
A NKOP) “<a THE 


FORMAT REQUIRED BY THIS THE el 
MADE EITHER 4s OR Nie REFER T 
TTEN TRELE FOR A FOR A areas Thy OF THe FORMAT ye. WHICH 
IN WHAT FORMAT. 
FOR NO EXPECTED ERRORS: 
CALL:  TCHKOP 
FOR kala 
;GROUP 1 EXPECTED ERRORS 
“HOE :GROUP 2 EXPECTED ERRORS 
WORD :GROUP 3 EXPECTED ERRORS 
WHERE EACH BIT IN THE THREE WORDS FOLLOWING THE CALL 
REPRESENT A SPECIFIC ERROR. THE BIT ASSIGNMENTS ARE 
GIVEN BELOW: 
GROUP 1 ERRORS: 
BIT 0 - CONTROLLER DETECTED DRIVE BUS 
PARITY ERROR 
BIT 1 - SEEK INCOMPLETE 
BIT 2 - NON-EXECUTABLE DRIVE FUNCTION 
BIT 3- DRIVE CTED DRIVE BUS PARITY ERROR 
T4- T 
BIT S - DRIVE TYPE ERROR 
BIT 3 - AC LOW ERROR 
BIT 7 - LOSS ERROR 
BIT 8 - DRIVE OFF TRACK ERROR 
BIT 9 - CYLINDER OVERFLOW ERROR 
BIT 10 - ILLEGAL DISK ADDRESS ERROR 
BIT 11 - WRITE LOCK ERROR 
G1 18 > RET LENG EM enson sev cmon 
BIT {a = DRIVE UNSAFE ERROR 
BIT 1S - CERR BUT NO OTHER ERROR SET ERROR 
2 : 
ha = ECC HARD E 
BIT 1 - DATA CHECK ERROR 
BIT : - WRITE CHECK RROR 
BIT 3 - DATA LAT 
BIT 4 - OPERATION INCOMPLETE ERROR 
BIT S - HEADER VRC ERROR 
BIT & - BAD SECTOR ERROR 
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1 STs oa 


IT + maT PLE PRT VE setect ERROR 


BIT § > WNEBIRPERAT he 


SLELLALLALALELELLELELELLLEALLALLELELSLLLELELELESLLLELSELELLELE 


BAD SECTOR CHECK 
RELRSASSERREREREREEE EERE EE EERE EERE ELLA SARE EELE EEE SEE SESE EEE 


cay fs) GleckeD TO OSCE Ur Ger SectOws Are LISTED 


SPEC TE "EDT tN L. HOCYL AND or wi . "SECTOR Is hen FOUND. ik 
THIS FIELD THAT IS BAD FOR OThAT 


RUGER’ OF BRO SECTORS 1S BC OI STE, gO 


ENTIRE FIELD IS SEARCHED 
CALL: J 
TRRDRESS Roe Piero TO BE SEARCHED> 


EERE REAR E EERE REE EEE EERE EEE LES LE RER AAR ER EERE EE EERE 
RATION AND COMPARE ROUT 


DATA GENE 
SHELLERALELARLARALAAERLALLALKLELA LE LELE LLL ALLEL ALLEL ALLE ELAESRE 


R4, GENCOM 
ROL WORD 

JSR R4, GENCOM 
CONTROL WORD , 
LENGTH 

ISR R4, GENCOM 


CONTROL 
RELOCATION CONSTANT 
LENGTH 


CALLS: JSR 
CONT 


RETURN: RTS R4 
The “FIRST” CR NE TURNS T fo TH Toca ATION N FOLLOWING THE 
ONTROL ORD. “THIS. 1S UNCONDITIONAL. 


THE SEC mo ne} RETURNS TO THE LOCATION FOLLOWING THE 
LENGTH My THe PETA ts REGUIRE DATA rath ony DATA 


RTSCOMPAR NO 
DAT COMPARE ERRORS OCCURRED, THE RETURN IS TO LENGTH 
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THE THIRD CALL IS IDENTICAL TO THE SECOND. 
DEFINITION OF CONTROL WORD: 


BIT 15 4 a Rh. ON OF tp 
§ eae pest! ne 

BIT 14 . “Corea OPERATION FROM POINT LEFT 
IT 13 ate FE FOR SOURCE 

BIT le - Te HENORY MANAGEMENT FOR DESTINATION 

BIT 11 - ae ErRst WORD OF SELECTED PATTERN 

BIT 10 - ae I PATTERN SELECTED. 

BIT 9 - BUILD HEADERS, CONSIDERING BS FILES 

BIT 8 - See HEADERS, ALL SECTORS INDICATE GOOD 

BIT 7 - R- Elin SPECIFIED (EITHER 


BIT 6 T00- ea of Ee téLp, OCTAL ENCODED. 0 
INDICATES NO, _DATA GENERATION 1. 18 ALL 

SED ARE PATTERNE 2-6, 8-16. REE a 

19 THe PROGRAM LISTING FOR PATO2 THROUGH 


EXPLANATION OF a 
THE CALL WITH CONTROL WORD THE ONLY PARAMETER IS 
we FOR BUILDING OR COMPARING HEADERS OR RESUMING 
COMPARE OPERATION. 


THE CALL WITH CONTROL WORD AND LENGTH AS 
PARAMETERS IS USED FOR DATA GENERATION OR COMPARE 
AND FOR IBUFF INITALIZATION. 


THE CALL WITH CONTROL WORD, RELOCATION CONSTANT 
AND LENGTH IS USED FOR DATA GENERATION OR COMPARE 
WITH MEMORY MANAGEMENT 

DESCRIPTION: 

THIS ROUTINE IS MULTI-PURPOSE AND WILL PERFORM THE 
FOLLOWING: 

A. BUILD HEADERS, EITHER 20 OR 22 SECTORS/TRACK MODE. 


THE WILL BUILD THE HEADERS AS ALL GOOD 
ECT (BIT sort TAKE T 


ACCOUNT AND ape LD THE HEADERS WITH THE SECTORS 
went? at A SECTORS FOR THE CYLINDER - TRACK 
ARE LISTED THEREIN (BIT 9). 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) 
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C.PLi 


USEASAISEAS | 


FATERE SUMTER 


SRRPSRE SIS Isom 


2382838 


0b 
“NI 
ik 


01-OCT-76 


167400 
000001 


HO3 
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B. COMPARE ne CONTENTS OF IBUF 


as x con omer he 
Pugh OR 40218) MORESO HERDER. THe LET 
EMPARE- As ore HEDOERE OPERATION ( att 15 ao arts 


COMPARE (NON-ZERO BITS 6-0). 


C. RESUME COMPARE OPERATION. IF A COMPARE OPERATION 
DETECTS A Ph a, me on tak RETURNS 10 
H_ THAT THE COMPARE 


ail Bir RES tke: hon cate eo 


D. DATA GENERATION OR COMPARE USING MEMORY 
CAN BE I FOR 


NVOKED 
ITHER "Soulce fel Th tote ON BUT Nor fare BOTH, IN 
ION CAN BE TO PLACE 


Banat HOU tis BOF a 


AREA OF AVAILABLE MEMORY 


FLEAALLSAALAALLALAAAALE ALLA LALLA ARAL E ELLE LL LLEREL ELLA ELELE LL LESE 


KED LOOP CLOCK ADJUSTMENT ROUTINE 


EKFLAALLEALALAL ELLA LALA LALA ELLA LE LAL ALLL ELAS AAA LRELALELALELELEL 


x 


THIS ROUTINE IS ENTERED VIA START LOCATION 2e0(8). 
THE I THE 


ADJUST . 

AVAILABLE DRIVE AND SETS AND RESETS THE DIAGNOSTIC 
MODE BIT IN RKMR1. INSTRUCTIONS ON WHERE TO SCOPE AND 
WHAT TO ADJUST ARE TYPED ON THE CONSOLE. 


THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED. 


-NLIST CNO,MD,MC, TOC 


IGHT (C) 


ABS, AMA 
= TEs400 
"THLE RKeLI ar 2 lane CONTROLLER DIAGNOSTIC 


; *COPYR 
;*DIGITAL EQUIPMENT CORP. 
; #MAYNARD 


MASS. 


01754 


 xPROGRA BY MARV TEGROTENHUIS 


HIS PROGRAM WAS ASSE 


MBLED USING THE POP-11 MAINDEC SYSMAC 


THI 
tSPRCKAGE (MAINDEC-11-DZQAC-C2), SEPT 14, 1976. 
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ne eee + ee Se eee 


RK611 F 


DZREKC.P11 


Srctetettatat en 


8 


cp co cocD aD 0D co cDcD cD 
o-* > b= b-- B + b-= Oo 
WOOD NOU .£ Lute 


SOUR He 


arate 


a8 


RES SRALGRE ORBAN 
won wre 


aR 
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7% 
"SETTL OPERATIONAL SWITCH SETTINGS 

3* 

© SWITCH _ USE 

v6 15 HALT ON ERROR 

:# 13 LOOP ON TEST 

:* 1 AaoAe PROGRAR a at ERRORS 
} i INHIBIT ITERATIONS 

te 

;# g LOOP ON TEST IN SWR<7:0> 


-SBTTL BASIC DEFINITIONS 
i SINITIAL | apes OF THE STACK POINTER ### 1100 ##* 


ot IV EMT,ERROR ;:BASIC DEFINITION OF ERROR CALL 

“EQUIV IOT!SCUPE ::BASIC DEFINITION OF SCOPE CALL 

p #MISCELLANEOUS DEFINITIONS 

HT= ss CODE FOR HORIZONTAL TAB 

LF= 12 FOR LI 

CR= Le FOR 1h TURN 

CRLF= FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 +e cote STATUS WORD 

sat. (Hb 

STKLMT= ;;STACK LIMIT REGISTER 

PIRQ= 177772 “PROGRAM INTERRUPT REQUEST REGISTER 
= 177570  HRROURRE SWITCH REGISTER 

DDISP= 177570 *HARDWARE DISPLAY REGISTER 


,XGENERAL PURPOSE REGISTER DEFINITIONS 
Riz XI i nena RECIStER 


R2= “2 ::GENERAL REGIS 
R2= %3 ::GENERAL REGISTER 
= “4 3 RAL REG 
zs “5 $3 
Ro= % ::GENERAL REGISTER 
R7= “7 ;:GENERAL REGISTER 
. “~% ::STACK POINTER 
= “47 $8 R 
-*PRIORITY LEVEL DEFINITIONS 
Pro=z so ::PRIORITY LEVEL O 
PRi= 40 :PRIORITY LEVEL 1 
PRe= 100 ::PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
= e200 ::PRIORITY LEVEL 4 
= p40 ::PRIORITY LEVEL 5 
PRe= =: 300 :PRIORITY LEVEL 6 
PR7= 340 ::PRIORITY LEVEL 7 
-#°SWITCH REGISTER” SWITCH DEFINITIONS 
GwiS= 100000 
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"Pil 


OZREKC 


RKE11 


Hates, SRG eee en, See 


RRVEC= 4 


33338 Labtadadtadtadtabtadtadtaliad Sh s-as-as-es-as-as-as-as-as—ae-ae-ae—at-an-ae-ae—a Gad Sadao tea adodoaad 
TARA TTT ead dada) “MOMDOMMMMM~mMm@mMm~@mMmM +++: ++ssss 


. = 
Ms 
w 
S 
a 
lJ 
a 
z 
w 
: od 
° wo 
ra no 
g Sw 
= ee 
a & = 
é g 
SI5IMEIIT = copes & 
= 
= 
3 
& 


3 


foes = =| ee 


UCET ieee Re RRRRO ONO esanesesmaeaa me memnne me meee 


A tee Ree Reet hat Ree tee ha hae Rett Ket let beat ean etn ea ete Sean eae ce Foam, Tee Faces Kem Toc, Tea Tecra Rms Karen, ec Keres ene me ee re ene ee ee ee ee ee ee ee ee ee ee oe ee ee he heer re) 


_-— --—— 
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RKE11 F; coe CONTROL 


DZREKC. 01-OCT-76 | FINITIONS 
1908 900016 RESVECs 19 + RESERVED AND ILLEGAL INSTRUCTIONS 
l 14 = 7 oe ct} 
= 14 :; TRACE TRAP 
13t9 seals BET VEK= ty S BREAKPOINT TRAP (BPT) 
i912 009020 IOTVEC= 20 3; INPUT/QUTPUT TRAP (IOT) **SCOPE*# 
1913 000024 PWRVEC= 24 :POWER FAIL 
1914 posd3¢ MTVEC= 30 EMULATOR, TR TRAP (EMT) #*ERRORE* 
191s TRAPVEC=34 js TRAP” TRAP 
= 
+3} e4 TEVEE: £8 Tt KEYR Roe ROE TOR 
1918 000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
13 "SBTTL MEMORY MANAGEMENT’ DEFINITIONS 
ie ;#KT11 VECTOR ADDRESS 
ia ooceso MMVEC= 250 
1ges :#KT11 STATUS REGISTER ADDRESSES 
1927 177576 ae 177576 
i 177574 = 177574 
1358 177576 = 177576 
1930 172516 SR3=-—s«1:72516 
193 ;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
| 1934 172300 KIPDRO= 172300 
1935 1 KIPORI= 172302 
1936 172304 KIPOR2= 172304 
1937 172306 KIPOR3= 172 
_ 193e 172310 KIPOR4= 172310 
1939 172312 KIPORS= 17231 
1940 - 172314 KIPDR6= 172314 
| 1341 172316 IPDR7= 172316 
| 1233 s*KERNEL “I” PAGE ADDRESS REGISTERS 
1945 172340 KIPARO= 172340 
1946 172342 KIPARI= 172342 
1947 172344 KIPAR2= 172344 
1948 172346 KIPARS= 172 
1945 172350 KIPAR4Y= 172350 
1950 172352 KIPARS= 172352 
| 495i 172354 KIPAR6= 172354 
196¢ 172356 KIPAR7= 1 
4 FI 611 VECTOR INTERRUPT 
| ided pone ie aveC T= 610 i Pert BREIL PRIORITY 
1356 177440 ABASE= 177440 + DEF INE RK611 BASE BUS ADDRESS 
| 1958 .SBTTL RK611 CONTROLLER REGISTER DEFINITION 
1960 ooo000 RKCSI= 0 sCONTROL AND STATUS REGISTER 1 
| see aed eke OG sHORD appar SS REGISTER 
| 1963 000006 RKDA= 6 :DESIRED TRACK SECTOR REGISTER 
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1964 000010 
iss coe 
136° bobble 
‘os 000020 
133 
1971 000034 
197e 000036 
1973 000030 
1974 000032 
1975 000022 
1976 
1977 
1978 
1979 000101 
1980 000103 
ia ett 

UU 

1868 000111 
1984 000113 
1985 000115 
1986 000117 
1987 000121 
1988 000123 
1989 000125 
1990 000127 
1991 000131 
1992 000300 
1993 
1994 
‘ae 
1897 
1998 
1999 


0S-0CT- 7 
RK611 CONTROLLER REGISTER DEFINITION 


RKCS2= 10 
RKDS= le 


mae: 


PAGE 37 
;CONTROL AND STATUS REGISTER 2 

: DRIVE STATUS REGISTER 

:ERROR Y AND OFFSET REGISTER 
‘DESIRED CYLINDER REGISTER 


:DATA 
; MAINT NANCE REGISTER 1 


;ECC T I 
ECC PATTERN INFORMATION 
SPARE REGISTER 


;SELECT DRIVE 
PACK ACKNOWLEDGE 
;DRIVE CLEAR 


; UNL 
;START SPINDLE 
FECAL LeRTE 


DATA 
WRITE DATA 


;READ HEADER 

s WRITE HEADER AND DATA 
WRITE CHECK 

: GENERATE INTERRUPT TO CPU 


-SBTTL CONTROL AND STATUS REGISTER 1 BITS 


;CONTROLLER DRIVE TYPE (O=RKO6) 
ONT VE RE TIMED OUT WAITING FOR 
CONTROL EP DRIVE FORMAT (O=26 SECTOR 


SEG 0037 


1=24 SECTOR) 


VE BUS PARITY ERROR DETECTED BY CONTROLLER 


DRIVE INT yl 
;CONTROLLER ERROR 
;CONTROLLER CLEAR 


-SBTTL CONTROL AND STATUS REGISTER 2 BITS 


= 101 
PACK= 103 
CLEAR= 105 
ha: 1 
= 111 
RECAL= 113 
OFFSET= its 
SEEK= Ill 
RDODATA= lel 
WROATA= 123 
= 125 
WRHEAD= 127 
WRICHK= 131 
NTR= 300 
fe BIT 
RDY= BIT7 
BAlb= BITS 
BAl7= §BITS 
COT= BITI1O 
CT0= BIT11 
CFMT= ®BITle 
= BIT13 
DI= BIT14 
CERR= BITIS 
CCLR= BITIS 
DR 37 
RLS= BIT3 
BAI= BIT4Y 
SCLR= BITS 
IR= BITE 
= BIT? 
UFE= BITS 
MDS= BITS 


MASK FOR DRIVE SELECTION CODE 
 DESELECT OR RELEASE DRIVE IN BITS O-2 
BUS ADDRESS INCREMENT INHIBIT 
; CLEAR CONTROLLER AND ALL DRIVES 

; INPUT 1 heres 

;OUTPUT READY 

:UNIT FIELD ERROR 
MULTIPLE DRIVE SELECT 


pam pa TRDLLER #  ptaritet 


T-76 1 


M03 
CONTROL AND STATUS REGISTER © BITS 


= gIT10 : PROGRAMING ie 
= Ett NON a fSrEN 1 Deve 
: HB ae 
Brees BI Tie Heit “ES Ck ERROR 
LSBTTL ERROR REGISTER BIT oar teen 
LFs To EGAL FUNCTION CODE 
oe OBEY Seen INCoRPL GrPLETE 
ars BITS CTED DRIVE BLS PARITY ERROR 
Mee BIT Delve 0 Bere 
OTYE= BITS {DRIVE TYPE ERROR 
ECH=  BITb tec 
BSE= BIT? 'BAD SECTOR ERROR 
HVRC= BITS {HEADER VRC_ERRROR 
COs «BITS ICYLINDER ADDRESS OVERFLOW ERROR 
IDAE= BITIO PINVALID DISK ADDRESS ERROR 
= BITli {WRITE LOCK ERROR 
DTe= BITI2 SDRIVE TIMING ERROR 
pls BIT13 SOPERATION (SEARCH) INCOMPLETE 
UNS=  BITI4 UNSAFE 
Ock= BITIS 'DATA CHECK 
\SBTTL STATUS REGISTER BIT DEFINITION 
ORA= —-BITO SDRIVE AVAILABLE (CONTROLLER IS SET IF 
THIS BIT IS RESET) 
oFst=  BIT2 {DRIVE OFFSET 
BITS AC LOW 
SPO SS= BITY ISPEED LOSS 
BROT= BITS SORIVE OFF TRACK 
We BITe :VOLUME VALID 
ORDY= BIT? ‘DRIVE READY 
DDT= BITS SORIVE TYPE (O=RKO6) 
WRL= ‘BIT IWRITE LOCK 
PIP= -BITI3 IPOSTTIONING IN PROGRESS 
DSc= —s«iBIT14 {DRIVE STATUS CHANGE 
SVAL= BITIS ‘STATUS VALID 
LSBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 
MESMSK= 17 ;MESSAGE MASK 
PAT= BITY SFORCE EVEN PARITY ON SERCON MESSAGE LINES 
OMD= ‘BITS IDIAGNOSTIC MODE 
MSP= BITE IMAINTENANCE SECTOR PULSE 
MINDS BIT? EMAINTENANCE INDEX 
HCLK=  BITB 'MAINTENANCE CLOCK 
MERD= BITS IMAINTENANCE ENCODED READ DATA’ 
MEWD=  BITIO iMAINTENACNE ENCODED WRITE DATA 
PCAs «BITII ;PRECORPENGATION ADVANCE 
PCD= —«BITI2  PRECOMPENSATION DELA 
ECCh= BITIS ECE WORD 1S BEING READ OR WRITTEN 


SEG 0038 
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DZREKC.P11 


SRP TERSE SANTEE ASTI 


DONT Ewn- ODS Lae 


rerurorurorurorupurorururvururulurvururururvururvururururururururor 
SBRVERPOVREBS 


Os b= bs 8 0 be 0 


Ww 
- 


01-OCT-76 1 


040000 
100000 


Be 
Hie 


010000 
020000 
040000 


WRTGAT= BIT14 
ROGATE= BITIS 


-SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 


oe HE 


.SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 
; ILLEGAL CYLINDER ADDRESS 
AC LOW 


Re eb eter o 
; FoR UNTER SERCON PARITY ERROR 
; NCOMPLETE 


Lom) 


a da eda do de ee 
ee miata 


® 


“ens BITS 


Lo) 
“ 


+ ie nue 


“4 
“ 


IT 
1] 
1 
IT 
= EIT 
IT 
IT 


re OMNI 


Pectesteslestectesleslestes) 
£Wwre-O 


-SBTTL 


a 
& 


Brooks 


zr 
= 
N 
) 
4 4 4 4 4 hh te 


Soleletetele- fhe tir 
LOO NC UT 


at kt kt he ne i ttt 
fwrre-O 


.SBTTL DEFINITION OF DRIVE STATUS BYTE O01 MESSAGE B 


S.SECT= BITY 
Ss. WCLK= BITS 
S.WGAT= BITE 
S.HDOFL= BIT7 
S.MHD= BITE 
S.XERR= BITS 
S.0I8= Btti9 
S.PLO= BIT11 
S.NMOVs BITle 
S.LIMD= BIT13 
S.BRKE= BIT14 


0S-0CT 


NOS 


-76 09: 
NTENANCE REGISTER 1 BIT DEFINITION 


PAGE 39 


;WRITE GATE 
; READ GATE 


POSITIONING IN PROGRESS 


INITION OF DRIVE STATUS BYTE 01 MESSAGE A 


; TRANSDUCER OK 

: HOME 

;CARTRAGE INT 

; SPEED OK 
ORWARD 

* REVERSE 

*HE LOADING 

: RETURN TO ZERO 

HEADS UNLOADING 


;SECTOR ERROR 


“WRITE CLOCK AND NO WRITE GATE 
:WRITE GATE AND NO TRANSISTIONS 


;BRUSHES HOME 
;DOOR INTERLOCKED 
ERLOCK 


SEG 0039 





a 
o 
o- 
be 


é 


Mororurvwerofrufnsrerucererorires 


me ae a ee eee 
+ 0-0 -+0-+0 +0 20-0 +0 +0 +8 60 -0-+ 6 +6 b+ 6m © 9 26-06 


rororurofrorororururorururocrurorurorurorororurorurofnorururururorururorurufnronoirurory 


0 +0 +0-+ b+ b+ 0+ b+ +b + b+ B—* O—= 6-2 B+ & + b= & 2 & = b-* B-> B= = 6-2 8 =D + 2 2h 2b 2&2 bh -2 9-26 2 Hs 
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Se OR TE peter beFIN tion! oF DRIVE. oars evti'g 01 ne eeace 2 


-SBTTL COMMON MASKS 


: M.DPVv= 7 ; 3 COOE 
j M.PAR= SITIS ;PARITY 
N.JDs 3 ;BYTE ID 
177 M.COIF= 1 : CYLINDER DIFFERENCE /OFFSET 
if iy | 4 sCYL ss 
iti M.SE ;ORIVE SERIAL NUMBER 
M.SECT= 760 ;SECTOR COUNT 
7006 M.HEAD= 7000 ;HEAD DECODE 
SBTTL TRAP CATCHER 
000065 -=0 
FALL LOCATIONS OF * VECTOR AREA CONTAIN 
;#A “.42, TOT” SEQUENCE TO CATCH AND PROCESS ILLEGAL 
;# INTERRUPTS THAT MIGHT re Th 
;#THE JOT WHICH IS oes ON THE GAL _TRAP/INT 
;#TRAPS TO ne SSCs TINE WHICH (IF RETURN PC IS 
;#LESS THAN 1002) JUMPS TO THE SERROR ROUTI 
;#THE SERROR ROUTINE W te te THE ERROR AS FOLLOWS: 
:# =YYYYYY TRAP TO XXX 
; RETURN TO AT PCsYYYYYY+2 
; XXX=LOCATION ee 
3 T TI 
;#NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE 
; CAN BE STARTED AT ADDRESS C AS WELL AS ADDRESS 200. 
000000 900000 S4OCAT: HALT ; HALT 
000737 BR --100 : BRANCH TO 177700 & TIME OUT (NOT ON 
000004 001740 -WORD START 3; VECTOR TO AQORESS 
OOOO ier de _ Hs Tok 19.419 Y LEVEL 
= 
000174 900000 DISPREG: WORD 0 ; SOFTWARE DISPLAY REGISTER 
000176 000000 wi sae NG. (ES) ;; SOFTWARE SWITCH REGISTER 
000290 poet 7 001740 aesTaR ;;GO0 TO START OF PROGRAM 
006204 reat 001730 oe RESTRT ;JUMP TO RESTART ROUTINE 
0002 14 i 001720 ae PARM ; JUMP TO OPERATOR ASSIGNED PARMETERS 
000220 000137 001710 IMP SET ;JUMP TO SET CLOCK ROUTINE 


-SBTTL APT PARAMETER BLOCK 
Sop ee Eo mememeenaens: 


iSeT Loca 


44 AS 
yaEASSEGESEEAESEEOSESESSEESESESGEEEESEAOESEAEEEEAEEEHEASEAIEOY 
. $Xz. SAVE CURRENT LOCATION 
.=24 siSET eR FARL TO POINT TO START OF PROGRAM 
200 ii OR APT STAR 
;POINT TO APT INDIRECT ADDRESS PNTR. 
000224 SAPTHOR :sPOINT T0 er HEADER BLOCK 


agtaneainintasslbeaseseneseatssatassesiansscnsesnsztessasatazets 
TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 


a 
a 


SRR PSE SI8 Vata ZI SSS GER LOR Boe eR TONS bb SESH ELS SR IRR PER 


| 
| 
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CO4 


CON oe 
“OCT-76 13:05 


DIAGNOSTIC 


| RKE11 TIONAL 
Boaekc En 03 


i 
' 


Bi 
* 
as 
oa 
ue 
vi 
mes 





ae 


BHRTHKRTEER 
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COMMON 


AGS 
-SETTL COMMON TAGS 


01-OCT-76 13:08 


TIONAL CONTROLLER DIAGNOSTIC 


Pil 


C 


RKE11 
OZREK 


Pe wutay © - WES ESTSESS PEST EES 
SESS Bs Ty gaacrees 
oe 


sm 
“s 
Tone 
& he SE 
—- eco RRR RR RR RR Rm 
S 
4 


et et et et et Se et et eet eet eet ee 


= zz ) 
Gcaccccccccsae £ BiSSrEccL rc. ccccceeeeeeesees™ 
a GE GEEEEDSSE cassssscasscsncened 


b= nb OCS OF 


;;START OF COMMON TAGS 
oF 


eh 
acs ey 


OOHAMOMO0000 -0OO00000000 OM=-00 BOOOOOWWOWOOWOW000000 


negepeeeeeeneetregarerceete geeppegeepeeeese 


*-_)e, fe @ @ © ®© @ © © © © © © © ee ee teas Ss Seeeseseeereaneseeteteetses 


ONTAINS VARIOUS COMMON STORAGE LOCATIONS 


PROGRAM. 


fp RESSSASLSSSKSSLSSELSAESALELASSSLASSSSALELSLALELELLSESASLELES SESS 


s#THIS T C 
4% IN THe 
-21100 


a 


001100 


ig 


BENG BIN AANA TT PRADRRTS SSIELTESSSBANZAG 


fee Rome Keen Dee Reem Reet Doe Dee Kee ae oe toe he De Dor Pee fee Pee pee pee ee pee ee ree rae pee ee ee pe pee ee ee ee ee ee ee ae mucucucu 
Ok OS OF OG dd Od 8 Od ng Od Hg nd Od On Od OG Og OE Od 9 Oh 4 wg Ome fe eee Vee ee ee ee ee ee ee eee ee ee ee ee ee re oe) 


SSsssesssssss88SsSsssssssssssess SS888SSssssssssss 


Tana AA UA ARR ATA EA RON 


rn ene ne ee. ee - - ee i+ 


ne eee 
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RKE11 FUNCTIONAL CONTROLLEF DIAGNOSTIC 
DZRBKC.P12 8 01-OCT-76 13:08 
22$3 O0l2e4 
1 eeuus 
ae: 
1 D000 
DO} 
Ba Bie ie 
ES B 
Ul 
DO] 
DO} 
DO 1 D0000 
coe 1s 909005 
i Bi BS 
001 } 
2269 O01e64 000090 
cel ie yy, 007 
5573 BOIS oobi 
Sere 
ce77 
2278 
ee73 001276 
2281 01300 000000 
eese poise 009000 
ece4 60130 000000 
2285 001310 
2286 Basis 
228? 001314 
e288 001316 
2289 pl ais 
Seas 01364 
eot4 
557 
2298 
2233 


009 
000 


a 
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COMMON Face 


: GO? «a7? 
SRP REIS 1B} 

5 PHSRRREAASSSRSELALERELES 
"SBTTL APT MAILBOX-ETABLE 


sabanann aia 


5 sESCAPE ON OR ADDRESS 
(377> ;; OR L 

;; QUESTION 

; ;CARRI RETURN 

;;LINE Fi 


SELELLELAEALLLAALELELELELLELLELESFELELELE 


Rap ONESIES Peo ent te 
IL: ;;APT MAILBOX 
SMSGTY: .WORD AMSGTY ::ME TYPE CODE 
ATAL: .WORD FATAL ;;FATAL 
TESIN: "WORD ATESTN ::TEST NUMBER 
Serve T: “HOR ADENe T SE VECE COUNT 
SUNIT: “WORD UNIT 53170 UNIT NUMBER 
: ee Oerecre «fineeeace 
SETABLE: ;;APT ENVI TABLE 
SENV:  .BY AENV 3:ENVIRONMENT BYTE 
SENVH: “BY BENVI ENVIRONMENT MODE BITS 
SSWREG: . G i:APT SWITCH REGISTER 
SUSWR: :WORD AUSWR  ;;USER SWITCHES 
SCPUOP: :WORD ACPUOP ::CPU TYPE,OPTIONS 
.# BITS 15-11=CPU TYPE 
:# 11704201, 11/0S=02, 11/20=03, 11/40=04, 11/45=05 
+i 11/70=08, POG=07,G=10 
1% BIT 10=REAL TIME'CL 
i BIT Sef LOATING POINT PROCESSOR 
$mansi: BYTE AMANS! ;;HIGH SS.M.S. BYTE 
SMTYP1: .BY AMTYP] ::MEM BLK 
+ MEM. TYPE BYTE -- (HIGH BYTE) 
1 NSEC CORE=001 
i 300 NSEC BIPOLAR=002 
$MADR1: .WORD AMADR1 ;;HIGH ADDRESS, BLK#l 
» MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF “TYPE™ ABOVE 
$mamS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 


: 


uf 


b+ 0 B= B20 b= Oo ae 
WMNMULE Wwe 


Pe bts eb sb 


RRNA: 


wv 

of 
“3 
a 


BaRERSReRSEEE o 
S8a8aSansAns 


ERIOBSECRSRES 
Ea becesras 
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X-E TABLE 


Ea eaee 
ane 


fiat vag Gin 


: 2° sets PRlon UNDER TEST 


ee V 
DEVICE Re DESCRIPTION WORD#1 





arattves: 





ee eee 
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OZREKC.P11 01-OCT-76 13:08 ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 
*#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


Teele ES MO, THis NUMGER INSTORTES HATCH Tren THe TABLE 1S PERTINENT. 
ENOTES: Estee th Tue TABLE ‘CONTAINS 4 POINTERS EXPLA EXPLAINED AS FOLLOWS: 


1+ ;:POINTS T 

3 DH s POINTS 19 The tte ra OF CER 

;# OF ::POINTS TO tHe BATA FORMAT 
001360 SERRTB: 


Fee oR TERESI 


eee Ch aA 
is HE ck. "BP STIR OF WOR ; TO THE bat T0 
1 Bee TOBE TYPED Tan FAHY OF THE POINTERS EN NEEDED. FOR A 
2345 i PARTICULAR FORMAT, IT IS REPLACED WIT 
? :# THE USAGE OF ERROR TABLE IS O HAVE 8 TABLE ENTRY 
2349 FF OP tone MEMORY. ce Tat Ca ct. IN ERROR TABLE INA is 
e350 2 OF HTL? OEPEERENT MANNERS AS adc BELOW 
2252 ;# THE ERROR T ENTRIES MAKE UP A SET OF REPORT FORMATS THAT ARE USED 
2353 :# THROUGHOUT T IS TO BE REPOR 
2254 :# TABLE ENTRY y THAT PROVIDES T DESIRED FORMAT IS CHOSEN FROM 
2255 *# THE DEFINED IS THEN ALT 
2256 i# BY BY CHANGING g THE fe CAND BLY THE SECOND) WORD 19 CONTAIN 
35e¢ *# POR ORTION "OE THEE ot a STRING, FIELDS OR THAT ENTRY ore NEVER 
e253 3 CHANGED GOLU LABELS OR POSITIONS. 
eb 1 THE mae THAT pn TABLE ENTRY PROVIDES IS SHOWN BELOW WITH 
este :# THE DEFINITION OF THE ENTRY. ALL DATA FIELDS ARE TYPED IN OCTAL. 
2364 jERROR I ITEM 1 
5 3% {ie SAGE 
1 NUM esr PC DRIVE 
226 i STESTN SERRPC DRVNUM 
oare 001260 00000 EMIN: .WORD 
001362 DHO01 
sie Ente 5B 
5374 ERROR ITEM 2 
2375 (MESSAGE) 


STESTN SERRPC 


* 
+ (MESSAGE ) 
22 +i TST NUM ERR PC DRIVE 
;# DORVNUM 
,# RKCS1 RKCS2 RKOS RKER RKASOF RKDCYL RKDA 


i nn nc a a 


RKE11 FUNCTIONAL ¢ 
DoReKC. Pi 0i-00 


2380 


388 


ae eee 
WOnNMOUW £Wwrue--O 


Res 


e423 


ONTROL 
T-76 


tr 


HO4 
NACYII 271006) O5-OCT-76 03:17 PAGE 46 


T.CSi a T.0S T.ER T.ASOF T.DCYL T.DA 
Te T.WC 


EMON: .WORD O 
DHEN:  .WORD © 


OTO0e2 
ITEM 3 
:# i MESSAGE) 
4 TST NUM ERR PC DRIVE 
see 
te CS1 oR RKER RKASOF RKMRI 
= # T.C51 n kes 7.05 T.ER  T.AST T.MRI 
EM3N: .WORD O 
DHOOZA 
DT003 
DFOO3 
ERROR ITEMS 4,5,6,87 ARE USED TO REPORT ERRORS THAT ARE a RESULT 
OF A HARDWARE ERROR INDICATOR BEING SET WHEN NOT 
RONTREN ( ; aL fe Oe SoRe THAT HERE cfepe (2) EXPECTED 
ERRORS THAT DID NOT OccuRy OF (3) ALL EXPEDTED att te SET ERRORS 
AND THE UNEXPECTED BUT SET PR RoRS. 
T T EXPLAINS THE TANCE FOR THE REPORT. 
THEL IN TE REPSAT it T WILL BE one SR ORE ; 5 Of FOLLOWING 
STATEMENTS: 
“THE ABOVE ARE EXPECTED THAT DID NOT SET IN OPERATION:* 
Ha ABOVE ARE UNEXPEC ERR ORS SET oil OPERATION:” 


mi 
“3 & 
: 
; 
: 
: 


PRECEEDING ANY ONE OF THESE LINES WILL io ve OR MORE LINES THAT 
SPECIFY TJE EXACT ERROR. FOLLOWING THE LAST LINE WILL BE A LINE 
THAT IDENTIFIES THE OPERATION BEING PERFOR , 

E 

NON-EX STANT DRIVE 

THE ABOVE ARE ERRORS SET IN OPERATION: 

DRIVE SELECT 

(ADDITIONAL LINES OF INFORMATION) 

THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION. 
EXAMPLE: 

NON-EXISTANT DRIVE 

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 
DRIVE SELECT 

(ADDITIONAL LINES OF INFORMATION) 

THIS IS THE RESULT OF AN EXPECTED ERROR THAT DID NOT OCCUR, I.E. 
A NON-EXISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET. 


Se Se SS SS SS SE SS SF SF SF SS SS SE SS SS SF SE SESS SESE SESE SE SE St SS SE Ss Se 68 es St Se ee wee 


ee ee ee ee ee ee ee ee Se Se Ee ee Se ee ee eS 
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ERROR POINTER T | 


3 SOR ERISTANT 

i* Ina RRL TY ee CTED ERRORS SET IN OPERATION: 

is . es Abe CTED ERRORS THAT DID NOT SET IN OPERATION: 
(ADD ADO ETTONAL LINES OF INFORMATION) 


THIS IS AN EXAMPLE OF NON-EXISTANT MEMORY BEING SET WHEN UNIBUS 
PARITY ERROR WAS EXPECTED. 


ERROR ITEM 4 

(DESCRIPTION OF ERROR) 

ons IN OPERATION 
SCRIPTION OF OPERATION) 


1 RKCS2 RKDS RKER RKASOF RKDCYL RKDA 
CSe 1.05 T.ER T.ASOF T.DCYL 1.DA 


"a Bla Bae Bas av Bois lose esr 


Hep ad ae 
ag EC IVE BUS ERROR 


ECUTABL IVE FUNCTION 


rhe tit lchrk trotted a dutch ranger ae 
= 
=~4 


TT] te ee ee ee ee we ee Se oe OF 8 Se SE SESS SE SESS OF SS HE SESE OE Oe Oe OF OF ee es ee ee ee 


MYN:  .WORD 
DH4N: .WORD 

DTOO4 

DFOO4 
:# ERROR ITEM S | 
:# THIS ENTRY IS THE SAME AS ITEM 4 WITH THE ADDITION 
i OF A MESSAGE THAT FOLLOWS. THIS MESSAGE IS: 
is “ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID” 
i THIS REPORT WILL BE PRINTED WHEN THE GATHERING OF DATA FOR 
:# THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR. 
EMSN: .WORD 0 
DHSN: .WORD 0 





RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC 
DZRGKC.P11 01-OCT-76 13:08 


e4 14284 057406 
ae boiase 057556 
2495 


a eT as 


0S7406 
001436 OS7éle 


ROHR 
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ERROR POINTER TABLE 


DTO0S 
DFOOS 


(DESCRIPTION OF ERROR) 
ERROR IN OPERATION 
PTION OF OPERATION) 
Ht ERR PC DRIVE 
C$1 Sikes Bros RKER RKASOF RKDCYL RKDA 
T.CS1 1.CS@ 1.0S T.ER T.ASOF T.OCYL T.DA 


RKBA RKWC 
T.BA T.WC 
THE ERRORS REPORTED BY THIS FORMAT ARE: 


DATA CHECK 
WRITE CHECK 
CC_HARD 


TA LATE 
OPERATION INCOMPLETE 
' HEADER VRC ERROR 
BAD SECTOR ERROR 


- WORD 


. WORD 
DTOO& 
DFOO6 


TT] ee ee we ee ee ee ee es we ee ee ee eee oe ee oe ee ee 


ee ee ee ee ee ee ee ee ee 


ERROR i 7 
OER ION OF ERROR) 
ERROR IN OPERATION 
(DESCRIPTION OF OPERATION) 
TST NUM PC DRIVE 
DRVNUM 
RKCS1 RKCS2 RKDS  RKER RKASOF 
T.CS1 1.CS2@ 1.08 T.ER T. ASOF 


THE ERRORS REPORTED BY THIS FORMAT ARE: 
sie Td DRIVE 


OGRAMM 
UNIBUS PARITY ERROR 
ILLEGAL FUNCTION CODE 


DESCRIPTON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR ILLEGAL 
-WORD Q 

-WORD 0 
DT007 
OF 007 


TT ee ee ee we we ws we ee ee es ee es ee ee ee Oe ee ee ee ee 


33 eo eee ee ee ee ee eS ee 


;* ERROR ITEM 10 
;* (DESCRIPTION OF ERROR) 


SEG S046 


ee 
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DZREKC.P11  O1-OCT-76 13:0 ERROR POINTER TABLE 
2s4e :# ERROR AT COMPLETION OF OPERATION 
2549 i {DESCRIPITON OF OPERAT ION) 
es 
2553 i $REGIO SREG11 
See te THE ERRORS REPORTED BY THIS FORMAT A2E SOFTWARE DETECTED BY 
e558 i COMPARING EXPECTED RESULTS WITH ACTUAL RESULTS. THE SPECIFIC 
e558 1% SEED ROUNT” INCOKR: “T 
;# BUS ADDRESS INCORRECT 
e560 i CYLINDER ADDRESS INCORRECT 
1s TRACK ADDRESS INCORRECT 
25s 1 SECTOR ADDRESS INCORRECT 
2564 O014S0 EMION: .WORD 0 
2565 001452 056670 BHOLO 
2566 001454 057456 OT015 
2567 O01456 057656 OFO10 
seee 3% ERROR ITEM 11 
2570 te (ERROR INDICATOR OR STATUS BIT) 
2571] 1x NOT SET AS A RESULT OF 
e57e te (ANOTHER INDICATOR, STATUS BIT, OR OPERATION 
te TST NUN E DRIVE 
2574 * STESTN SERRPC DRVNUM 
2575 ie RKCS1 RKCS2 RKDS RKER RKASOF RKMRI 
5o08 i T.cSl 1.CS2 1.05 .ER T.ASOF T.MRI 
2578 O01460 00000 EM1IN: .WORD 0 
2579 001462 057014 DHO11 
2580 OO1464 057406 DTO10 
2581 OO1466 057676 OFO11 
5266 og5 :% ERROR ITEM 12 
2584 a THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
2585 1 "NOT RESET AS A RESULT OF” 
See 001470 EMI2N: .WORD O 
2568 472 DHO12 
2589 001474 O57405 OT010 
2590 001476 057676 OFOLI 
eee :% ERROR ITEM 13 
25 * THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS 
gem 1 “SET AS A RESULT 


DORON 
RRS 
= 


38 057406 DTO10 

939 00 057676 DFO11 
2601 £ RROR 
cons + epee ERROR ig. jeent ico TO ITEM 11 EXCEPT THE SECOND LINE IS: 
26 LF "RESET AS A T OF” 


Oe OE 
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E TABLE 


EM14N: nen 0 


THEAGER HRD MISCOMPARE) OR (DATA MISCOMPARE ) 
NUM ERR PC ORIVE 
STESTN SERRPC DRVNUM 


, BAD, WORD NUM FOR ERROR 15 





— —_ — a ee eee 
on eee ee 


RKE11 FUNCTI 
OZREKC.P11 
2629 
2631 001 
ab: 
B01 
DO1S46 
263S 001550 
i pel eee 
Dolsse 
2639 001560 
2640 pe tebe 
264 1564 
eb4e 001566 
2643 001570 
e644 001572 
oe 001574 
46 001576 
2647 
2505 , 
Do 
See Dblebe 
2651 001604 
Fax pi 
5 
ey Doleg? 
SS 001610 
e656 O0lble 
e6S7 001614 
2658 OO1616 
e6s9 
2660 
e661 001620 
ebbe O0lbee 
2663 001624 
2564 
2665 
seeF 001626 
e668 001630 
2669 00163e 
E71 001634 
7 001636 
2674 OO01640 
2675 
2676 O0lé4e 
2677 
sp 001644 
2680 O01S46 
2681 001650 
eo8e 001652 
e683 091654 
e684 OO1656 





ONAL couTppUL ee 
01-0CT- 


IAGNOSTIC MACY11 27(1006) ont ce 09:17 PAGE Sl 
REGISTER STORAGE FOR TEST 
.SBTTL REGISTER STORAGE FOR TEST 
via WORD 5 
1 BR “WORD 
T.DA: -WORD OC 
T.CS2: .WORD OQ 
YDB: . WORD 5 
T.ER: . WORD 
T.ASOF: .WORD OQ 
T.OCYL: .WORD JQ 
T.SPAR: .WORD 
1.08: WORD 
T.MR1: .WORD QO 
T.ECPS: .WORD OQ 
T.ECPT: .WORD O 
T.MRe: .WORD O 
T.MR3: .WORD O 
.SBTTL wi TER SETUP STORAGE 
rime’ f ;PRESET WITH INTERRUPT ENABLE 
L.BA: -WORD OQ 
b- pes 7 
mir eT i 
L.CSe: .WORD QO 
L.ASOF: .WORD Q 
L.DCYL: .WORD Q 
L.MRI: .WORD OQ 
-SBTTL PROGRAM DEFINED VARIABLES 
RKVEC: .WORD 0 ;RK VECTOR 
RKPRI: .WORD 0 ;RK Pe hs 
SRTFLG: .WORD 0 ;START FLAG 
; O = 200 
i 1 = 214 
-1 = 204 
-WORD Q : DRIVE UNDER TEST 
VBIT: .WORD O : WORD TO STORE BIT TO POICATE DRIVE UNDER TEST 
ERRCNT: .WORD ¢D20 ERROR COUNTER TO LIMIT ERROR 
ie REPORTED IN PROGRAM 
ERRLMT: .WORD tDe0d ;DATA_ COMPARE ERROR LIMIT 
BSFe4P: .WORD BS24 sPOINTER IC e BAD SECTORS 24 SECTOR MODE 
BSF26P: .WORD BS26 {POINTER 10. BaD SECTORS 26 SECTOR MODE 
BSSE4P: .WORD OQ ; POINTER i) oe SECTORS 24 SECT MODE 
BSS26P: .WORD 0 sro TO pro SECTORS 26 SECTOR MODE 
BS26CT: .WORD 0 :COUNT OF BAD SECTORS 26 SECTOR NODE 
BSe4CT: .WORD O aT OF BAD SECTORS 24 SECTOR MO 
MILCNT: .WORD ‘tDSOO ;COUNT TO APPROXIMATE 1 MILL SEC 
TIMCNT: .WORD fD1S : COUNTER FOR MYTIME ROUTINE 
OPTFLG: .WORD O : OPTION FLAGS 


SEG 00S! 


SD 


ah 
A 


RK611 FUNCTIONAL dr We DIAGNOSTIC we eee OS-OCT-76 09:17 PAGE Se 


DZREKC.P11 01-OCT-76 1 
Seer 09001 
38 Boebos 
e689 000010 
2690 000200 
seas pO 
e633 000400 
e694 100000 
sae 090090 
26 Bo 000000 
2698 
so 001664 o00000 
2701 
2703 001 pools 
e704 001670 0000 
e705 00167e 000000 


i7el 
2710 901704 178102 
2711 001706 000114 


LCLKTK: . 
INTSET: . 


REFMT: 


: Wd 
: :WORD 172102 
-WORD 11 


04 


DEFINED VARIABLES et cates 


DOTST= BITO DRIVE 0 TO BE € TESTED FLAG 

MEM EOB= BtTE stenrey PATTY POR RTE FLAG 

SRTINS= BITS ‘START UP INSTRUCTIONS REPORTED FLAG 
PARBKO= BIT? PARITY OP OPT 

PARBK1= BITS :PARITY OPTION BANK O INTERLEAVED MEM 
BSERPT= BIT7 BSE HAS BEEN REPORTED 

FPFMT= 8I1T8 tFIRST PASS FORMAT SWITCH 

LCLKPR= BITIS ‘LINE CLOCK PRESENT 

WORD O sLINE chock TICK COUNTER 

WORD 0 tNON-ZERO IF RKOG INTERRUPT SINCE LAST 
.WORD O iCLERE ar SWITCH FOR HALT 


THE FOLLOWING 4 VARIABLES ARE USED TO STORE PARAMETERS FOR 
HEADER OR DATA COMPARE CONT ten PROCESS. 
- WORD ;DESTINATION HOLD 


E HO 
D NUMBER IN ERROR HOLD 


: ar : WOR 
: [WORD * WORDS TET IN COMPARE HOLD 


-WORD 177546 KWL1=L 


SEG 0053 . 





U : 
| 3 
rs | 
| a 
) r 
o & 
iH “ 
; t a 
‘| ws 
, _ e 
sf be 
‘ By oe 


27( 3006) 
INED Vi 

MOV 

BR 


-SBTTL PROGRAM SETUP 


AGNOST 
000002 O0lse4 SETCLK: 


> 
¢ 


TROL 
r-76 
lz 


1710 
1716 


4p fF. Ta mT TE 





“APS 4. 
5 OM = 
a fi 
= 3 
eo  opes 
= 9 
A fat 
$c Stes 
t & SyhSe 
5 Gore 
ni Shite 
ro) ~ 
> | aon | oF. 
win ih & bes 
Sa Sa GweSSe 
ae 


012737 177777 O0i62e4 RESTRT: MOV 


ive 012737 900001 001624 PARM: 
i728 S00406 


2 wy coh, Beas. 
i BES Bef wf. sus 
f 888 (SES RE Sly 
5 wh ERS SS thes vasa. 
BS we ekg e $. SpkSou, Sentand 
a FS ox 5 = 4 So eOM eee 
~ BF 28 SE y & aSy Es Wee te 
ef Fetes 3 Dry aes 2 
MS Se gf gb. eoeete gece eet 
an a IS-SSRS WSS S 
idea a Sher gtanedaet ion 
Retis Go Meee -caseso-me scaecces 
a i beak & o- fae, 
7 & Sees 23 Bae 
oo a Bases Pe 


he Bese BENE 
ay ae 


s 
_— 
‘ 

z 


ocePEOBEEEEEEE SESBIISSERCSBSSRE 


—e = e 
s ace 
se ee 


nd o 4 o-4 Od o-4 oF 4 ww 


INITIAL 
ZE F 


QOAN00000 


ice 


APPAGR 


om kame Kan Kok kam hom | 


S888 SHeeee 


2767 002172 O00403 


oe 


RKE11 TIONAL CONTROLLER DIAGNOSTIC MACYL1 27(1006) OS-OCT-7& 09:17 PAGE S4 Seo 0oS4 
Sosa BN at -Set re 1a 08 ONTTHAL Tce oe COMMON Trice . 
2768 1™% 012716 ocOz20e2 64S: a #6S$, (SP) :;SET UP FOR TRAP RETURN 
Has! i 000176 001140 &SS: SSWREG, SWR s:POINT TO SOFTWARE SW 
1 000174 Odo1l4e nOY sDISPREG, DISPLAY 
16 012637 000004 S6$: MOV (SP)+, J@tRRVEC epaplarenten” 
005037 001304 i CLR SPASS 
bie? 37 000200 001317 Bea SGe TSIZE, SENVM $3 ee ueeR "size UNDER APT 
errs % 012737 001320 001140 SSSWREG, SUR tINO,USE APT SWITCH REGISTER 
5278 _— NAME 
2780 Te LEP Rowe ar cre ves, 
a coe eet 
goes goeee0 beer sedan “ sro es “pat eat YES 
£788 soblan!: cman SBTTL at vA se38 SOF TWARE shite EciStER 
00101 " fer Ser $i ORENGH TP ves doers 
5286 oseers ie 001316 000001 CMP SENV, #1 HARE ME RUNNING UNDER PT” 
3735 001140 000176 ae #SWREG Bs Fh cH REG SELECTED? 
55as Dossie Beia8s ie OF + BANC 
2793 Soes14 104406 GTSHR ee ::GET SOFT-SWR SETTINGS 
en posai6 Ff 000001 001134 708: MOVB 81, $AUTOS ;;SET AUTO-MODE INDICATOR 
002326 000437 2) oe OVER THE ASCI 
ere < ig? .ASCIZ OBS Fr eRKbL! FunttfSnee CONTROLLER ETAGNOSTIC MAINDEC-11-DZRSK-C#<CRLF> 
2800 O02426 132737 000200 001317 " ITB 1T7, SENVM ;TEST IF DO NOT SIZE 
22801 O02434 rate ' Bre % ‘vee - SEP 
2802 002436 004737 031452 ISR PC, $SIZE 
2803 ret deze? 031756 000740 CH $LSTBK, 8740 MAKE SURE MEMORY IS SUFFICIENT 
Ee tert 047613 puie Foros each (NOT ENOUGH MEMORY ) 
206 OOe45E 012737 000001 031270 MOV 1, SEOPCT :FORCE END 
002464 000137 O3124e JMP sebp 
2808 002470 013700 03 2s MOV SLSTBK,RO ;GET LAST BANK 
2803 000474 012701 MOV #6,R1 :SET SHIFT COUNT 
e210 be500 o13703 031754 MOV SLSTAD, RS : GE 
il CLR ‘CLEAR RY FOR OVERFLOW 
2812 002506 005737 031510 TST SKT1L1 MEM 
2213 OUe5 le 190005 prt 23S *NO = SKIP 
2214 14 100 22S: RO ‘SHIFT BANK LEFT 
2815 O02Sie6 006104 ROL RY :ADD IN CARRY 
a Mees Bt a Poe of 
SiS BEE T1277 coooy ooizer om: Rie f'pire ‘Fane Mr ring Og SOS 
2820 002534 11 aa9 001326 “MOVE RY? 1 ORE UPPER MEMORY ADDRESS 
2821 40 001330 . MOV R3 } STORE OWER ADDRESS 
Dee 44 B000i9 oO1ese.2$: . BIT RATING OPTFLG EST IF ALREDY REPORTED 
2822 O0esS2 001005 : we 24g YES - SKIP 


a ec ec rc a rc gE 


DOS | 


RKE11 FUNCTIONAL CONTROL R DIAGNOSTIC macy 27 27 906) Tee 08 PAGE SS 
DZREKC.P11  O1-OCT-76 1 dor Paane SWITCH bdgistee 
eee poesss soos ae TYPE QPRO1 :TYPE STARTUP INSTRUCTIONS 
001656 ios BIS BSRTINS,OPTFLG SET REPORTED FLAG 
ee? 737 001824 CMP #1,SRTFLG sCHECK IF PARAMETER START 
lize ONE ! 3NO START TESTING ee 
2529 104401 — S$: TYPE QFROOL TYPE “RK RODRESS ( } 
sex id} TYPOC SAVE S68 ss FoR vee ASC ETTALL DIGITS) 
5235 an Vee hs a alee 
10441 RDOCT :GET VALUE 
2534 01 001222 MOV (SP)+, STMPO 
2835 1407 BEQ 7$ CK IF 
2836 ee 160000 001222 ch #160000, STHPO ré CK IF in" 1/0 PAGE 
sos eet Q01222 0013S2 MOV Sineo $BASE sLOAD NEW BUS ADDRESS 
3839 104401 047541 7$: TYPE ‘TYPE “RK611 VECTOR ADDRESS ( } =" 
2940 01374 O01346 MOV $VECTI (SP) :GET $VECT1 FOR TYPOUT 
2a! over 16 160000 BIC #1609000, (SP :CLEAR PRIORITY BITS 
5545 IMO; 047533 TYPE  ,OPROG2 
2os4 : 12 RDOCT GET VALUE 
254 12637 001222 MOV (SP)+, STMPO 
ZOuE 00141 BEQ 1 sCHECK IF <CR> 
234? 022737 001000 ool1222 CMP #1000, $TMPO 
2540 101757 BLOS 6 s«7§ :CHECK IF LE 
2945 04 017777 00134¢ BIC #17777,$VECT1 CLEAR OLD VECTOR 
2250 beso3> 001222 001246 BIS STMPO.$VECT1 | 3LOAD NEW VECTOR RODRESS 
2251 104401 04757! 10$: TYPE » OPROOM :TYPE "RK61i PRIORITY ( ) =” 
2e52 OOSO46 CLR ~(SP) 
2853 113716 001347 MOVB  $VECTI+1, (SP) 
2oc4 006216 ASR (SP) ;SHIFT S BITS RIGHT 
Pass 006216 ASR (SP) 
sees BpeSie fee CEP) 
Doce 006216 ASR (SP) 
25s 104402 TYPOC 
Faia) 104401 047533 TYPE  ,OPROO2 
2261 iOwie RDOCT GET VALUE 
2e6e2 12637 001222 MOV (SP)+, STMPO 
2e63 001430 BEQ sCHECK IF <CR> 
2864 022737 000007 o0l22e2 CMP #7, STMPO :CHECK IF LEGAL 
Bees 103753 BLO o¢ 
oeb6 e673 oo0004 01222 cH : STMPO 
2868 001222 ; ASL STMPO ;SHIFT S BITS LEFT 
2969 006337 O0l2e2 ASL STMPO 
2270 006337 O0le22 ASL STMPO 
2871 006337 001222 ASL STMPO 
2876 001222 ASL STMPO 
042737 160000 001247 BIC $160000,$VECT1+1 ;CLEAR OLD PRIORITY 
2274 053737 OOle22 901347 BIS STMPO.SVECTI+1 ;LOAD RK611 PRIORITY 
2875 004 033704 15$: JSR PC getter” :SETUP PARITY CHECK 8 CLOCK 
2876 01 001346 MOV SVECT :STORE VECTOR FOR USE 
2877 042700 160000 BIC STEOORR R RO ‘CLEAR PRIORITY BITS 
2878 010037 001620 MOV RO, RKVEC 
2879 012710 023626 MOV SINTHLR, (RO) § ;SETUP INTERRUPT ADDRESS 








| EOS 
“DERGKCLPLT  “GI-SeTove 1:08 «GET VALUE POR SOPTRARE SkfTCH REGISTER ~~ — 


2880 OO3S0SE 113737 01347 Odlée2 MOVB SVECT1+1,RKPRI ;STORE PRIORITY FOR USE 
2881 003074 013702 001352 MOV $BASE, Re ;SET BASE ADDRESS 
ae ae fee ie o bet, Grae 
seitt Bt Lit MOV sree’ (er) 
2ees 114 000002 RTI 
OO3i1& 1s$: 


———_—— a a i i re 


FOS 


RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 57 SEQ 0057 
DZR6KC.P11 01-OCT-76 13:08 ##BASIC INTERFACE AND OPTION TESTS 
2eee .SBTTL ##*BASIC INTERFACE AND OPTION TESTS 
ress : Or gpmmcemge Cg gg eee ee 
goa : KTE R611 BASE ADDRESS TEST ~ 
, :s “cre R'NONCERTSTONT MEMORY TRAPY IFA TRAP OCCURS) a 
sees :# Fie Eonar Fe HALTED. 
cess + SRESSLSERERESESLLAESESRERLRERELAELSAEA SRA LL SL ELELELALSLALAALSLES 
Sees Besise BrO0S tri: scope 
1 l 000100 o01262 #100, STIMES ; D0 109. ITERATIONS 
2898 003126 012706 9001100 MOV aSTACK, SP : CLEAN STACK 
2899 003132 012701 900004 MOV #4,R1 itt DOINTER TO VECTOR 
2900 136 Ol2e146 MOV (RI )+, -(SP) ORE OLD VECTOR CONTENTS 
a BS be my lay 
1 12701 900004 V #4, Ri ;RESET POINTER 
2903 O03146 012721 033620 V #NEXINT, (R1)+ sgeT VECTOR TO NEM TEST HANDLER 
2904 O031S2 012711 o00340 MOV #PR7, (RI) 5ST PRIORITY 
2305 003156 013702 0013S2 MOV SBASE Re *SET POINTER TO RK611 BASE ADDRESS 
e208 00316¢ p05032 16 CLR INTSET :CLEAR INTERRUPT T 
DO3i66 O1 ooo000 MOV #0,RKCS1(R2) WRITE CS1 TO SEE IN NEM WILL SET 
2308 003174 O00240 
2309 003176 o00240 NOP 
e210 903200 900240 
il 005737 O01662 TST INTSET ;TEST IF COUNTER IS 0 
52s Bossis pis Ay t MESSAGE TNONCEXISTANT i 
1 i 0S2216 001360 V M1, EMIN : (NON-EXISTANT MEMORY TRAP ERR) 
sate boats? o4e442 ee ERAT ;G0 TO CONTROLLED HALT 
2316 002224 b12701 dodc0s 1S: MOV #6,R !RESTORE VECTOR 
2917 003230 012611 MOV (eb)s, (RL) 
e318 003232 01264! MOV (SP)+'=(R1) 
cosy $ iiltst 2 INTERRUPT VECTOR ADDRESS TEST 
5354 1 CHECK T THAT AE INTERRUPT TPO T Ee OE THE RKEL IS SET TO THE 
2923 % EXPECTED ADDRESS. SIE INTERRUPT VECTOR IS IN ERROR, 
535¢ ” = 2 
23926 = FLERSELSESRELKAAARESRALALA AEA RASRASSRRRRARLRLASALALAARERAREREEER 
2927 003234 ocoD004 téT2: SCOPE 
2328 003236 012737 O00100 oDlebe V #100, STIMES -DO0 100 ITERATIONS 
eae Ole762 005000 900010 MOV $CLR; RKCS2 (Re) CLEAR, SUBSYSTEM NEES TE TGALLY TO 
2931 003252 001662 CLR INTSET : CLEAR ANY OLD INT COUNTER 
2932 003256 012762 000200 ooD000 MOV #RDY! IE, RKCS1( Re} sWRITE CS1 TO FORCE INTERRUPT 
2933 003264 Oo00240 NOP 
2934 003266 000240 NOP 
2925 003270 O000240 NOP 
2936 003272 005737 ODlbte TST INTSET ;TEST IF INTERRUPT OCCURRED 
2937 o03276 S01011 BNE 35 YES - SKIP ERROR REPORT 
2938 105737 001102 TSTB  SERFLG ‘TEST IF ERFLG ALREADY SET. IF SO THE 
2939 iIN TERRUPT WENT TO THE WRONG VECTOR 
2940 SSAGE HAS yas REPORTED. 
2941 002304 001004 BNE 25 * THEREFORE - EXIT 
2342 003306 012727 OS2216 001360 MOV #£M1,EMIN "MESSAGE (NO INTERRUPT) 
2943 003214 104001 ERROR 1 


Saul TAT SEEN 


aa 003316 900137 O4e44e 
003322 


Lia ca UT a uu Es ee 
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epee eee nett iatreereecccen 
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~ ee ee 
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000062 001262 


MACYLI 27( ) 0S-0CT- :17_ PAGE Se 
Tz INTERRUPT TEs ToR Ropes TEST 

a: IME CTRHLT :G0 TO CONTROLLED HALT 
.SBTTL ##STATUS VALID TESTS 

: ee eee er ee ee eee es 
;#TE SELECT ALL DRIVES 

TEs NOT fe nt IN WES AE AUTOMATIC ENVIRONMENT, 

SELECT um & BLL okt TES Ate naga DRIVE REPORTED 
MAK TUS vel 1D 1g RE IVE 

PRESENT MAKE RROR DRI ve 

IS CYCLED UP, SEND Ne aFue var ID tet, AND DSC RESET. 


LPP ALR 8 a 


IF Le TON ite 41 te THE XXDP 2 


S ON 
THE ORIVE Y ae TEST “tee PARAM 
TART (214) ek STAR (200) 
S USED GRIME? 0 fot ee s ART (204) 
WILL RETAIN THE TEST STATUS OF DRIVE 


IF THE PARAM TART aa THE TOR MUST 
EITHER Line IF IT IS NOT TO BE TESTED 
OR URC ORES AND CH MEDIA MOUNTED IF IT IS TO 

BE TESTED. The PROGRAM TLL MONITOR OFF LINE AND VOLUME 


VALID TO DETERMINE THE TEST STATUS OF DRIVE QO. 
THE DRIVE Te oe 1SMee Fe Mot UP ao. mars ENABLED. 


oO Se SESE SF 8 SE SESE SE SS SES SE SESE SF SS SESE SH SS Se FSF St OH ee es Chee es oe eee 


Miele dete d te te tee ee eee eee eee eee ee ee ee ee | 


IF ANY ONE THAT DRIVE 
IS NOT SOE TED AND IT IS EXPECTED TO” pe OPE “LINE. ADDRESSING 
THAT DRI RONCEXTSTANT CFR IVE “ERROR. 
aT C ION OF THE TEST 
A MESSAGE WILL “ GIVEN TO IDENTIFY THE DRIVES TO BE 
USED IN TESTING 
NOTE: THIS Is TEST MUST _BE RUN AT LEAST ONCE BEFORE 
; Pg ear ase CRN 
MOV #50. ,STIMES : ITERATI 
TSSINIT Ape. 8 SUBSYSTEM CLEAR AND TEST 
ERROR 3 
MOV ASP) ;SET PROCESSOR PRIORITY TO ALLOW 
Mov tis “( ?RK611 INTERRUPTS 
1S: MOV T VECTOR 
MOV BFE (R1)+ ; mt INTERRUPT VECTOR 
MOV #PR7, (RI) 
MOV SSDEUN R3 ;GET ADDRESS OF DEVICE MAP 


SEG O0Ss 
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001317 


000013 
00ibe4 


001656 


001600 


001540 
001550 


001656 


001552 
001232 


0015Se 
001656 


OO1ESE 


001600 


MACYL1 e7( 1008) 
T3 SELECT ALL DRIVES 





HOS 


OS-OCT-76 09:17 PAGE S9 


SPASS 
abr77, SENVM 


4 ;0RS,6,7 


~ ,1.DS 
#DOTST, OPTFLG 


RO 

#1,R1 
aDOTST,OPTFLG 
9$ 


RO,L.CS2 
#SELDRV,L.CS1 


OR 
SK 
3 NEA SUBSYSTEM 
DR 
DR 


;TEST IF FIRST PAS 


est Pe cate. TO pri ve, SELECT TEST 
YES - SKIP TO DRIVE SIZING. 


CLEAR i oe 
; TEST oo IS LOAD DEVICE 


TWAS START _AT PARAM? 
;YES_- SKIP 


;NO TEST OF DRIVE O 
DR FLAG - NO TEST DRIVE 0 


SSAGE - SWAP PACK ON DRIVE OFF LINE. 


iC RK & SLeCT 


NOT 16MS he COMPLETION 
NOT DONE ON TIME 


GET RK_REGISTER 
s TEST ro 


Test IF NED 
;YES - SKIP 


;CHECK THE OPERATION AND REPORT THE ERROR 
;AETER THE ERROR IS REPORTED THE TEST 


T STA IN 
ELSE SET FLAG TO INDICATE READY WENT LOW 
:G0 GET STATUS AGAIN 


; TEST IF READY SET AGAIN 
:NO_- GO GET STATUS AGAIN 
ELSE SET ORV O TEST FLAG. 


;CLEAR FOR DRIVE NUMBER COUNTER 
;SET BIT O AS DRIVE SELECTOR 


T SUCCESSFUL 


NUMBER 
SELECT 








z 


= 


ECRCRYAVAR CH Lt bid i RORSERAMSN Ge aas cla ioty 


WWWWWWWIWOIWOIG) 
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UNC TIONAL CONTROLLER ppinanostic ACYL 27(1006) OS-OCT-76 09:17 PAGE 60 SEG 0060 
Pll O1-OCT-76 1 13 SELECT ALL DRIVES 
104417 TLOADRK sLOAD RK REGS 
TWATI6 IT FOR 
aed BU 2 AP LSE EAE exon 
O44, TGETRK GET RK REGS 
100000 901540 BI SCERR,T.CS1 : ERROR? 
1017 BNE 10$ YES - SKIP 
: poo200 o01ss2 I #ORDY, 7.05 sELSE TEST IF DRIVE READY 
poyo00 o01sse2 BIT suRL,T.DS ‘ELSE TEST IF WRITE LOCKED 
001001 BNE 3g YES - SKIP 
050113 BIS Ri, (R3) ;SET BIT - DRIVE PRESET IN MAP 
NC ; XT OR 
seat “ EF RAFF BRNPTSPEN Ee ro vexr one. 
032701 oo0400 BIT #81T8,R1 WAS 
001743 BEQ 83 :YES = ag i 
000410 BR 11S ELSE LOOP TO SELECT NEXT DRIVE 
932737 010000 OO1SSO 10%: BIT #NED,T.CS2 ;WAS CERR TO NED? 
1366 BNE YES - BUMP TO NEXT DRIVE 
TCHKOP ELSE REPORT THE ERRORS 
ERROR 4 ;0RS,6,7 
{Shs; a TCH aT NEVER GETS EXECUTED 
118: ie Thos eS 3 
BFL 16$ IF Pus “hae DRIVE TEST MESSAGE 
NC 100 0 PLUS 
TST (R3) ANY DRI VE AVAILABLE? 
BNE 128 tBR BR I NOT ZERO 
Ti OPROO REPORT NO DRIVES AVAILABLE 
IMP ETRHLT 60 TO CONTROLLED HAL 
12S: MOV #8177,R1 T DRIVE SELECTOR FOR DRIVE 7 
MOV #7, RO T DRIVE NUMBER TO 7 
TYPE  ,OPROO9 yam PREFIX TO DRIVE TEST MESSAGE 
138: BIT R1, (R3) est IF THIS DRIVE TO BE TESTED 
BNE 15$ YES - SKI 
14$: DEC RO ELSE DECREMENT DRIVE NUMBER 
ASR Ri sSHIFT T Pi SELECTOR TO NEXT DRIVE DOWN 
BNE 13 IF NOT SHIF TED OU LO 
BR 16$ ELSE GO TO STATUS "vaLtD TEST 
15$: MOV RO, 101$ ;PUT DRIVE NUMBER IN TYPE LOCATION 
BIS eBiT4'BITS,101$ ;MAKE IT ASCIZ 
YPE TYPE IT 
104401 047501 1018 SPACE2 TYPE SOME SPACES 
000762 BR 14s LOOP 





z 
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GEARLOG Soe VR LORS be VF LO SOB SRNL he ee BOO cohoeees 
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ee ee ee ee ee be ee be he es ee 


11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY1I 271006) OS-OCT-76 09:17 PAGE 61 SEG 0061 
DZRSKC.P11 01-OCT-76 13:08 T3 SELECT ALL DRIVES 

118 poso00 168: CLR RO . LEAR DRIVE ii COUNTER - 

tt se FOR ees noi 2un Moy 5 1 drme7 e ReiP> RERATICE 

11s 1273? 177777 001630 MOV 8-1, DRVBIT SET DRIVE SELECT SIT NEGATIVE 

Hig BRB Bsa ms: AN ee 

Gia sete rey Sasbathin FSET BANE SE 

t 012737 9000101 901600 MOV SSELORV.L L.cS1 SET FOR DRIVE We SELECT 

{ ipaues TheTte TOY FOR TNTERRUP 

1 ieee 6 a ORTNOT COMPLETE 

1 il BIT R1, (R3) :WAS THAT DRI I 

1 001023 9¢ :YES - 

1 


. 
: 


190000 0015Se BIT #SVAL,T.DS ;DID STATUS VALID RESET? 
BEQ 18$ ;YES - SKIP 
OS4340 001400 ;ELSE MESSAGE (SVAL NOT RESET WITH NED) 


os 


18$: INC ;BUMP_TO NEXT DRIVE 


foe eee es 2 ee 
: 
: 
: 
z 
é 
8 
: 


RO ; 
006301 ASL ORI :SHIFT ORIVE SELECT BIT 
032701 00400 BIT  #B1T8,RI ;ALL ORIVES CHECKED 
001740 BEQ =s«178 !NO_- GET NEXT DRIVE 
000457 BR 218 ZELSE EXIT 
104421 195: TCHKOP :CHECK NO ERRORS SET 
104004 ERROR 4 ;0RS,6,7 ;REPORT ALL ERRORS 
100000 901552 IT AL,T.DS ;CHECK SVAL SET 
Bo i064 Bre 8S ives = SKIP 
012737 OS4421 001400 MOV #EM4B, EMSN :MESSAGE (NO SVAL FROM EXISTANT DR) 
104003 ERROR 3 
012737 000103 01600 208: MOV sPACK,L.CSI1_ ELSE SET TO DO PACK ACK 
104417 TLOADRK :LOAD RK 
pow222 104423 TWATIE ;WAIT FOR INTERRUPT 
o04224 104002 ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 
oo4225 104421 TCHKOP ;CHECK FOR ANY ERRORS 
004230 104004 ERROR 4 ;ORS,6,7 :YES - REPORT & ABORT TEST 
p04232 032737 000100 oDISSe BIT  _#vV, T.S sDID W. SET 
O04240 001005 BNE 228 SKIP 
OO4e42 012737 054303 001400 MOV  #EM46, ENSN MESSAGE (VV DID NOT SET/ 
O04250 104003 ERROR 3 
004252 000737 BR sé 


RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 62 SEQ D062 
DZR6KC.P11 O1-OCT-76 13:08 3 SELECT ALL DRIVES 
3168 O04254 032737 O4C000 O01SS2 228: BIT #0SC,T.DS ;TEST IF DSC RESET 
13 BREE FELIIP cars cour ea bel at 
2h 1 0555635 ee MOV DFOLIA 
1 104003 ERROR "DSC NOT RESET RESULT OF SUBSYS CLEAR” 
3173 004302 000723 BR 
304 005737 001630 238: TST ORVBIT TEST IF DRVBIT IS NEGATIVE 
bows! 100329 BPL i NO - SKIP 
l2 010137 001630 MOV Ri, DRVBIT ‘STORE DRIVE SELECT BIT 
004316 010037 001240 MOV RO’ $TMP7 ‘STORE DRIVE NUMBER TO BE TESTED 
004322 000713 BR 1e$ 
004324 013737 O01240 O01626 21$: MOV STMP7,DRVNUM  ;LOAD LOWEST ® DRIVE PRESENT INTO DRVNUM 
904332 923787 001624 ooo002 CMP SRTFLG, #2 TEST IF CLOCK ADJUST START 
1 BNE 25$ !NO - SKIP 
004342 000137 042332 IMP ADICLK :GO TO ADJUST CLOCK ROUTINE 
ess: 


ee 
RELEASE ALL DRIVES 


; ATE 


ty RELEASE ALL DRIVES. MAKE SURE NO ERROR 
te SETS AND STATUS VALID IS RESET. 


sf 
+s “agg Uo gegen OR RRR ee 


WWI) WIIG) GI GIGI G) GI GIG) GIG) GIGI I GI GIGI GI GIGI GIG) 
Os a ee es a ee 
SBVFRLOOLSBBIKR IEW BIaIaeaz 


004346 o00004 t$Ty OPE 
004350 012737 o00062 001262 MOV #50. ,STIMES ;:D0 50. ITERATIONS 
004356 104416 TSSINIT :TNITIALIZE SUBSYSTEM 
004360 104003 ERROR 3 :BAD INIT 
zen 004362 013737 001626 001610 MOV DRVNUM,L.CS2 § ;SET DRIVE NUMBER 
3202 004370 012737 O00i101 001600 MOV #SELDRV,L.CS1 SET DRIVE SELECT 
aie 004 1 TLOADRK sLOAD RK REGS 
32005 OO4400 104423 TWATIG *WAIT FOR INTERRUPT 
3206 OO4402 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
3208 powioe 104421 TCHKOP ;CHECK FOR ANY ERRORS 
3608 104004 ERROR 4 ;0RS,6,7 ?REPORT ANY ERRORS 
zeit 004410 012737 000010 9001610 MOV #RLS,L.CS2 ;SET DRIVE RELEASE,STILL SET FOR SELECT 
3213 OO4W41E 104417 TLOADRK sLOAD RK REGS 
3214 Oo4420 104423 TWAT 16 sWAIT FOR INTERRUPT 
#16 oo4422 104002 ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
3516 oo4424 104421 TCHKOP -CHECK FOR ANY ERRORS 
3218 OO4426 104004 ERROR ORS, 6, OR? ; jREPORT ALL_ERRORS 
3554 Dowuae poiden 200000 o0lsse Brg svi, T.bs "100 Sve, Reser? 
3221 OO4440 012737 OSYSOD 001400 MOV #EM49, EM3N :MESSAGE (SVAL NOT RESET W/RELEASE) 
eee bowie 104003 a ERROR 3 


a 


RK611 FUNCTIONAL hg, tama 


DZREKC.P11 


SSSGNOON 


FOROFORG 
RES 


RO RUADRRN es Sanson cose ae 


: 


SERRE 


ao Ot Ge 


: 


Ree 


a 


Bie 


032737 
001007 


01-OCT-76 13 


0SS5235 
osS2Se 


001552 


001460 
057702 


001552 


001470 
057702 


MACY11 27(1006) OS-OCT-76 09:17 PAGE 63 
T4 RELEASE ALL DRIVES 


TSTLUP: 
| Eeaeeeeneseensaneanenneacesesneaeaetausneanesnssseonsnesneys 
TEST § NON-STANDARD MESSAGES AND SVAL 
i CK ONE OF THE AVAILABLE DRIVES AND GET 
ii a Ruts aro Stats. VAIO. DOES’ NOT SET 
i Sa onto Reser. 
her Ga ee ares 

MOV #50. , STIMES sj00.5 SO. ITERATIONS 

TSSINIT ‘ SUBSYSTEM 

"tai #1,R1 rare tee res Woe fESSAGE PAIR 1 

MOV DRYNUM, L.cS2 

MOV #SELORV,L.CS1 i OAD SECT COE RAND 
1S: cLR L.MR1 sO FOR STANDARD STATUS 

TWATIG WAIT FOR INTERRUPT 

ERROR 2 ;T OW/NOT COMPLETE ERROR 

CHKOP *CHECK OPERATION 
ERROR 4 ;5,6 0OR7 :REPORT ALL ERRORS 
BIT sSVAL,T.DS ;TEST STATUS VALID SET 
: YES-SKIP 

MOV #EMSVAL , EMLIN 

MOV WENSELD, DFOL1A 

ERROR s"SVAL NOT SET RESULT OF DRIVE SELECT 
2s: MOV R1,L.MRI ;LOAD MESSAGE PAIR SELECT 

TL sLOAD RK 

TWATIE WAIT FOR INTERRUPT 

ERROR TO SLOW/NOT COMPLETE ERROR 

TCHKOP ;CHECK OPERATION 

ERROR 4 ;5,6, OR 7 REPORT ALL ERRORS 

BIT #SVAL,T.DS TEST STATUS VALID RESET 

BEQ 33 : YES-SKIP 

MOV #EMSVAL , EM12N 

MOV #EMNZPR, DFO11A 

ERROR le s"SVAL NOT FTSET RESULT OF SEL W/ NON-O PAIR™ 
3S: CMP #3,R1 ;WAS PAIR 3 SELECTED? 

BEQ ug :YES- 

INC Rl *BUMP TO NEXT PAIR 

BR 1$ :SKIP TO DO IT. 


4: 
© PEKKA REREREA ARAL RAL AAA RE RASRELA SAR RRARERALA RA LELA SAR EERE RAASRES 
 hTest & WRITING CS2 AND STATUS VALID 


SEG 0063 


cc: ooo --- o-oo Oo Or 


ee oe 


a 


MOS 


1 FUNCTI IAGNOSTIC macy 271 -0CT- 17 PAGE 64 @ 0064 
ss aco Ami Seca Pas ae efi BRCvAL er e1t BS Oho Sarde VALID 7 
Sar + T I DR T 
-& 
2 iy vac Tb ke sie 4 CHRO AN aN eyetue Ret ister 2. 
: ‘ MAKE SURE STATUS VALID RESETS 
ce SESSLER AEKALALET SEAS LE AS RHEA LAA AALELE RAL AAS SEARARALRFLAAELAARELLE 
3086 004626 00004 tSte: SCOPE 
3287 004630 012737 000062 O012b2 MOV #50. ,STIMES ; TERATIONS 
3288 poe 3s 104416 TSSINIT bak SYSTEM 
3683 1 ERROR 3 
#231 OO4G42 013737 OO01626 001610 ‘MOV DRVNUM, L.CS2 ape DRIVE NUMBER 
004650 012737 000101 001600 ‘MOV #SELDRV,L.CS1 LOAD DRIVE SELECT 
$533 OO4ESE 104417 TLOADRK 
3295 O04660 104493 TWATIE hart FO FOR INTERRUPT 
363% 004662 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
3298 OO4664 104421 TCHKOP ;CHECK OPERATION 
3638 OO4G6E 104004 - ERROR 4;5,6, OR7  ;REPORT ALL ERRORS 
$301 OO470 032737 100000 oD1SSe2 BIT #SVAL,T.DS ;TEST STATUS VALID SET 
00467 001007 BNE 15 : YES-SKIP 
3304 004700 012737 oS5235 001460 MOV #EMSVAL, EMLIN 
3205 504706 012737 O46676 057702 MOV wENSELD, OFO11 
3306 714 104011 ERROR il ;"SVAL NOT SET RESULT OF DRV SELECT” 
38 004716 012762 OD1G26 O00010 1S: MOV DRVNUM,RKCS2(R2) ;WRITE CS2 TO RESET SVAL 
$210 004724 104420 TGETRK GET RK REGS. 
3312 004726 032737 100000 oDisse BIT #SVAL,T.DS - TEST SVAL RESET 
$213 004734 001407 BEG ie. : YES-SKIP 
3315 004736 012737 oS55235 001470 MOV #EMSVAL , EMI2N 
3316 004744 012737 055313 057702 MOV #EMWCS2,DFOL1A 
3317 OO47S2 i04ol2 ERROR le ;"SVAL NOT RESET BY WRITING CS2" 
2318 004754 es: 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC 
OZREKC.F11 01-OCT-76 13:08 


3359 


RUMOUR SS ae RE Sees Sa SPREERCRUS NOUNS: 


337 
3374 
3375 


Bowree Gie7s? ooodse o012te 
004764 104416 
104003 


770 Ol 1626 00161 

re Oiersr Oovidl Dole 
052737 001 
104417 

005014 104423 
104002 

104422 

000040 

Bosdee 600000 


005030 104004 


00S03e 032737 100000 001552 
005040 001007 


o0So42 012737 OS5e3S5 001460 
012737 057702 
005056 104011 


005060 090004 
00S0be Gle737 O00062 O00le6e 
005070 104416 


MACY11 27(1006) OS-OCT-76 09:17 PAGE 65 
##CONTROLLER ERROR TESTS 


.SETTL ##CONTROLLER ERROR TESTS 


; er te ee 
:ATEST DRIVE TYPE ERROR 
ty CREATE A DRIVE TYPE ERROR. MAKE SURE DRIVE 
it TYPE ERROR SETS AND STATUS VALID SETS. 
Mae Pata: a centicstes tn erring aura 
#50. ,STIMES ;:D0 SO. ITERATIONS 
TSSIN NIT aa: SUBSYSTEM 
ERROR 3 -BAD INIT ERROR 


sLOAD DRIVE NUMBER 
MOV OEE LDRY. c a "LOAD DRIVE SELECT 
_ BIS #COT,L.¢Si ;LOAD 


DRIVE TYPE 
TLOADRK ‘L000 RK 
TWAT16 ;WAIT FOR INTERRUPT 
ERROR 2 ;T0 SLOW/NOT COMPLETE ERROR 
TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
IVE TYPE ER 


:DR 

ERROR 4; 0RS,6,7  ;REPORT ANY DIFFERENCES (NO ERRORS 
ah svat Be ERRORS, DIFFERENT ERRORS) 

BIT wSVAL, T.Ds TES 


MOV #EMSVAL , EM1IN 
MOV #EMDTPE , OFO11A 
ERROR 11 ;"SVAL NOT SET RESULT OF DRY TYPE ERR” 


Fr eer rig rartt at lel 


; ATE STATUS VALID AND PARITY 

+ ISSUE A SELECT TO AN AVAIL TABLE DRIVE WITH BAD PARITY. 

* x RE S R ERROR, ATTENTION 

* i DRIVE STATUS CHANGES, DREAR. DRIVE INT FERRUPT, 

* AND STATUS VALID SET’ ISSUE'A CONTROLLER 

1% CLEAR. MAKE SURE DRIVE INTERRUPT AND ATZENTION 

tx ARE STILL SET. SELECT DRIVE AGAIN WITH GOOD 

1 PARITY. MAKE SURE ATTENTION DRIVE Ta TUS 

+* DRPAR, CONTROLLLER ERROR, DRIVE INTERRUPT, 

ie AND STATUS VALID SET SPAR IS 

1% ISSUE A CONTROLLER CLEAR. GET NON-STA PaRO MESSAGES 

* NLY DRIVE INTERRUPT AND ATTENTION 

* ARE SET. CLEAR ATTENTION WITH DRIVE CLEAR. REPEAT 

ii FOR ALL AVAILIABLE DRIVES. 

OL nn te ee 
MOV #50. , STIMES ::D0 SO. ITERATIONS 
TSSINIT :CLEAR SUBSYSTEM 


SEG 006S 


ee 



















RKELI TIONAL CONTROL: TAGNOSTIC Y1l 27(1006) OS-OCT-76 09:17 PAGE bE SEG O0e 
Sarak eae yee ae Be ST eee IOe ORs ino Bani ty ERROR a oe 
zs ooso72 104003 ERROR 3 :BAD INIT ERROR 
posers 13737 001626 01610 Mov DRY L CSB “#108 DR ve 
ae Beerse fi pete mov Seat LAR Lo Prive ates eIT 
005116 104417 TLORORK sLOAD RK REGS-SELECT W/EVEN PARITY 
BOS 1 1 TWATIE WAIT FOR NTERRUPT 
nOSiz2 1 ERR 2 :T0 SLOW/NOT COMPLETE ERROR 
p05 124 TCHKWE ;CHECK OPERATION FOR EXPECTED ERROR 
7 0051 DRPARERR! SPARERR :DRIVE SELECTED DRIVE BUS PARITY ERROR 
ns 905130 - WORD :CONTROLLER DETECTED DRIVE SUS PARITY ERROR 
32% 005134 ERROR 4; OR S,6,7  ;REPORT ANY DIFFERENCES 
pe 005136 012700 od00400 MOV s81T8,RO ;ROUTINE TO DETERMINE WHICH BIT 
013701 o0162¢ Mov DRVNUM, Rl ; SHOULD BE SET oat 85 ASOF TO INDICA 
He 2s: eee ze seit toe rehodee” BE Se eit THE DRIVE 
DEC Rl 3 IN USE 
BNE 2$ 
; TEST ATTENTION SET 
1 ; YES-SKIP 


Test bu Y ATT NOT Feet set OF ORV PARITY ERR” 


Sees ks 
cn 
"F g 


a 

5 

a 
Sey 

a 


$103 104011 7 ERROR 11 ;"DRV INT NOT SET RESULT OF DRV PARITY ERR™ 
Eat 932737 oyoo00 ooss2 ss: IT , 7.05 TEST DRIVE STATUS CHANGE SET 
| i 1 : YES-SKIP 
| Hl 012737 055375 001460 MOV #EMOSC,EMLIN 
14 ber a7 053666 057702 MOV BSEMOPAR, DFOi1A 
15 104011 ERROR 11 "DSC NOT SET RESULT OF DRY PARITY ERR™ 
| gui? 032737 100000 O01SS2 6§: BIT sSVAL,T.DS ;TEST STATUS VALID SET 
1 BNE rs : YES-SKIP 
| 1 055235 901460 MOV MSVAL, EMLIN 
<0 1 053666 MOV SEMOPAR, OFO1LA 
zice 104011 ERROR 11 s"SVAL NOT SET RESULT OF DRV PAR ERR™ 
zie 005037 O0lblét 73: CLR L.MRI :CLEAR PAT IN MRL 
2 


052737 100000 901600 BIs sCCLR,L.CS1 ;CLEAR CONTROLLER 
104417 TLOADRK ;LORD RK REGS TO DO CLEAR 


104421 TCHKOP ;CHECK_NO ERRORS SET 
104094 ERROR 4; OR S,6,7 REPORT ALL ERRORS STILL SET 


a mm a ee re a re i ee ee 


4 
ee 
"3 
of 
at ’ 
a! 


Ged (nes ieans daceraseee Gad § OPA a 


PRE 


Vid a SERERPRARRM tase eaa nuit Stee ees es tacit 


2 
fR 


1 
12737 


Ss 


es 


o-- 
~~ os 
- 
os 
ee 


~ 
ran, 
= 
ee 


000091 
000101 





001600 
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STATUS VALID AND PARITY ERROR 


T10 


10$: 


118: 


128: 


13S: 


git 


To 
‘ 
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RO, T.ASOF : TEST ATTENTION STILL SET 
2 + YES-SKIP 
see 
14 ORV ATT RESET RESULT OF CONT CLR” 
801,7.CS1 TEST DRIVE INTERRUPT STILL SET 
: YES-SKI 
MDI, EM14N 
eencclr, DFOLIA 
s"DRV INT RESET RESULT OF CONTROLLER CLA” 
tape, sLOAD SELECT DRIVE 
ABE Pifeamer 
:T0 SLOW/NOT COMPLETE ERROR 
;CHECK THAT ERRORS ARE SET 
10 : T (NO SPAR 1, REPORT 
;ANY 0 IES 
4 ; OR 5.6,7 
RO’ T.ASOF ; TEST ATTENTION STILL SET. 
10$ : YES-SKIP 
SEMDA, EMIIN 
se ,DFOLIA 
il ;"DRV ATT NOT SET RESULT OF DRY PARITY ERR™ 
801, 7.CS1 sTEST DRIVE INTERRUPT STILL SET 
11 + YES-SKIP 
SEMDI EMLIN 
sf ,DFOLIA 
ll s"DRV INT NOT SET RESULT OF DRY PARITY ERR™ 
asc, T.DS ; TEST STATUS CHANGE STILL SET 
1 i ES SeIP 
sroRia At 
»DFOLIA 
il s"DSC NOT SET RESULT OF DRV PARITY ERR” 
sSVAL,T.DS ;TEST STATUS VALID STILL SET 
; YES-SKIP 
SEMSVAL ,EMLIN 
8EMDPAR, DFO11A 
;"SVAL NOT SET RESULT OF DRV PARITY ERR™ 
#CCLR,L.CS! ;CLEAR CONTROLLER 


;LOAD RK REGS (DO CLEAR) 


#1,R1 
#StLORV,L.CS1 


;SET COUNTER TO agLect STATUS PAIR 
;LOAD ORIVE SELECT 


: 


RKB11 FUNCTIONAL CONTROLLER DIAGNOSTIC 
DZREKC.P1] Ol-OcT-76 13:08 
3488 OOSS74 019137 001616 
Susa feeess = $Ba435 
23 OOSED4 104002 
Hee O0SE06 104421 
ue 005610 104004 
2% next 001556 
3498 1 oss42: 001410 
3499 005626 012737 057702 
3500 005624 104014 
se ose o4o000 001540 
| Se04  QOeENE ee OS5355 001510 
Se een Cee betes of 
2528 104014 
350 
30 preeee posest ooo004 
¢ 
| #10 005872 arent 
| ie 005674 005037 O01b16 
| 14 o0s7o0 012737 ooo10s 01600 
| 3516 005706 104417 
| 3617 005710 1o4w4e3 
| 3ig o0s7ie iovoce 
| 3530 pos7i4 104421 
| Hel O0b7ie 10v004 
| £5 005720 012701 oco0020 
3524 005724 005301 
| 325 005726 001376 
22 ure jove 
| 3628 905732 030037 oo1SSe 
3529 605736 001407 
| 3630 005740 012737 OSS¥21 001470 
3531 00574 012737 O46724 057702 
2532 005754 104012 
3 005756 o0154 
| 3635 Ooeves Ooivgr 00 7 
| 3536 005766 012737 oss35S 001470 
| 363? 005774 012737 046724 057702 
_ 3638 oo600e 104012 
| 3539 
3640 o0e004 
354] 
| 342 
| 3643 
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STATUS PAIR SELECTION 


FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 


;CHECK IF ANY ERRORS SET 
REPORT ALL ERRORS SET. 


s Teat ATTENTION STILL SET 
; YES-SKIP 


;"ATTENTION RESET RESULT OF NON-O PAIR SEL” 


;"DRV INT RESET RESULT OF NON-O PAIP SELECT” 
;BUMP PAIR SELECT 
ALL PAIRS DONE? 
:NO=LOOP 
;CLEAR MRI 
;LOAD DRIVE CLEAR 
;00 DRIVE CLEAR 
sWAIT FOR INTERRUPT 
3;TO SLOW/NOT COMPLETE ERROR 
oreo FOR ANY ERRORS 
REPORT ALL ERRORS 


;SET COUNT FOR SHORT WAIT 
CONTROLLER TIME TO POLL 


;GET_RK_REGS 
;TEST ATTENTION RESET 
YES~SKIP 


"ATTENTION NOT RESET RESULT OF DRV CLEAR 
;TEST DRIVE INTERRUPT RESET 
; YES-SKIP 


;"DRV INT NOT RESET RESULT OF DRIVE CLR” 


[seeeestavesnennseuseneesenssnsnnessssastonsansnnsnnannannnes 


MACYL1 27(1006) OS-OCT-76 09:1 
T10 STATUS VALID AND PARITY 1 RROR 
148: MOV R1,L.MRI 
TL it 
TWATIE WAI 
ERROR 2 
TCHKOP 
ERROR 4; OR S,6,7 
BIT RO, T.ASOF 
~ ee 
MOV SEMNZPR, DFOLIA 
ERROR 14 
ISS: IT #01,7.CS! 
oe 
MOV SEMNZPR, OF OL 
ERROR 14 
168: INC RI 
coup #4,R1 
BNE 14g 
CLR L.MRI 
MOV SCLEAR,L.CS1 
TL 
TWAT IE 
ERROR 
TCHKOP 
ERROR 4; 0R5S,6,7 ; 
MOV #20,R1 
178: DEC Rl :TO ALLOW 
BNE 178 DRIVES 
TGETRK 
BIT RO, T.ASOF 
BEG 18% : 
MOV #EMDA, EM12N 
MOV sEMOCLR, DFOLIA 
ERROR le 
183: BIT #01,T.CS1 
BEQ 19S" 
MOV ten EM12N 
MOV #EMOCLR, DFOLIA 
ERROR le 
te UNIT FIELD ERROR ON RELEASE 


SEG CO&s 


RKb11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLI 27(4 “octere ? PAGE 69 SEQ 0069 
DZREKC.P1i 01-OCT-76 13:08 Bee epee ELD ERROR BN Bille ’ 


244 :# ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE 
z45 i D ive. PUT CONTROLLER IN DIAGNOSTIC MODE. E. SSUE 
=o :# TURN pi senoeti ic Gspe* TTR eRe on UNIT pOprE 
a :* SETS. 
3550 i Ea) Tapaegmagenr ri eenyaseriatartap yemoaertemnet 
sees cases le737 000062 01262 ‘ Boy . #S0. ,STIMES : ITERATIONS 
3653 006014 i04416 TSSINIT ae SUBSYSTEM 
3554 006016 104002 ERROR 2 :BAD INIT ERROR 
seep 006020 013737 001626 9001610 MOV DRVNUM,L.CS2  ;SELECT A DRIVE 
3557 006026 012737 000101 O01600 MOV SSELDRV,L.CS1 :DO DRIVE SELECT 
S228 006034 104417 TLOADRK sLOAD RK 
3560 006036 104423 TWATIS WAIT FOR INTERRUPT 
3561 OO6040 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
see os ooso42 104421 TCHKOP ; CHECK FOR ANY ERRORS 
3564 OO6044 104004 ERROR 4; 0R5,6,7 REPORT ALL ERRORS. 
Bae OOG04E 052737 000010 001610 BIS #RLS,L.CS2 ;LOAD RELEASE 
3567 006054 012737 OO00040 901616 MOV 8DMD;L.MRI :SET DIAGNOSTIC MODE 
| sep aa] p06062 104417 TLOADRK LOAD RK 
| 325 at 006064 004437 O35050 ISR RY, MCLOCK sCALL MAINT CLOCK 
| 3872 023 -BYTE 1019 : NUMBER 
3573 006071 O02 "BYTE 2 °NUMBER OF CLOCK XISTIONS 
| Seo 006072 O42762 O0004D oDp00es BIC #DMD,RKMRI(R2) ;CLEAR DIAG MODE x 
3255 006100 104423 TWATIG sWAIT FOR INTERRUPT 
3578 O06102 104002 ERROR 2 :T0 SLOW/NOT COMPLETED . 
006104 1 T ; TION WITH ERROR ; 
3280 0061 iowuee TCHKUE CHECK OPERATION WITH ERR 
3582 006110 o0c000 “ORD ORE 0 
3583 006112 o00004 ,WORD  UFERR UNIT FIELD ERROR 
3584 0061145 104004 ERROR 4; ORS,6,7 REPORT ANY DISCREPENCIES 
seer OO0G116 104416 TSSINIT :CLEAR SUBSYSTEM TO INSURE UFE RESETS 
358 MOLI I SSINI :CLE YSTEM 
2586 5 SELLA RLALALARALSLELA LALLA LA LEE ALA LAR LE LE ERALELLELE LEER ER EEE 
3589 jATEST 12 UNIT FIELD ERROR ON SELECT 
32a i ISSUE A SUBSYSTEN CLEAR. SELECT AILABLE 
3592 1 DRI ER IN DIAGNOSTIC MODE. ISSUE 
3593 1 A SELECT COMMEND WITH MESSAGE ID = 2 AND DRIVE 
«3694 te SELECTED = 0. CLOCK THROUGH PHASE ADDRESS 6. 
3s i TURN OFF DIAGNOSTIC MODE. MAKE SURE UNIT FIELD 
| H i ERROR SETS. 
| 2598  SELKEEEREERERERSKEL SAAR ASKRSE RRA LALA RALRARAARHRALAARALRAFALHLALAARFAEGA 
| 3592 006122 900004 titi2: SCOPE 
| 
ee 


NN EE eeeeeeEeEeEeeeeeEEEEEoEoEeEEEOEEEEEOEEeEeEeEeEeEeeeeeeeee 
' 


F 
: 


01-OCT-76 13:08 


o 
. 

vw 
os 
be 


Beis fue come on 
006134 104 
ie RE ati mies 


006152 104417 


boeise {BM0b3 


RROwRr Gees 
f 





3610 
3611 006160 104421 
wis O06ibe 104004 
3614 006164 012737 O00043 001616 
is 006172 005037 001610 
0 006176 104417 
3619 006200 004437 035050 
51 
tee 
3624 
3625 
3626 
3627 
56 
3631 
3632 
334 .SBTTL 
3635 
Px : ATEST 
3638 :# 
3639 3% 
3640 ;* 
3641 :# 
2642 ;# 
3643 3% 
3644 3% 
th | 3% 
seu i 
E48 
25 BEB EY come coin 

1 boesae Touaie 

006244 104003 

3654 OO6246 013737 001626 001610 
3655 O006eS54 012737 000113 001600 


FO6 
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FIELD ERROR ON SELECT 


#S0. , STIMES ITERATIONS 
TSSINIT ‘iP SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
MOV DR =. : 
MOV eee RUE SRS1 © LOAD RIVE 
eee a Bi 
ERE OR 2 iG OR ay RBRPL Ere 
TCHKOP ; CHECK FOR ANY ERROR 
ERROR 4; ORS,6,7 REPORT ALL ERRORS 
MOV SOMD'BITI!BITO,L.MR1 — ;LOAD DIAG MODE & MSG PAIR 3 
CLR sL..CS2 ;LOAD FOR DRIVE 0 
TLOADRK sLOAD RK 
ISR RY CLOCK ; CALL MAINTENANCE CLOCK 
EVIE 2 SPL se Ss TRANSTTTONS 
BIC #DMD,RKMRI(R2) ;CLEAR DIAG MODE 
TWATI6 ;WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETED ERROR 
TCHKWE ;CHECK OPERATION WITH ERROR 
WORD 
“WORD UFERR ;UNIT FIELD ERROR SHOULD SET 
ERROR 4; ORS,6,7  :REPORT ANY DISCREPENCIES 


*##ATTENTION HANDLING BY CONTROLLER 


5 a AER AR EE EE eR AR AE ae Ae Ae aE AEA aE EAE A HE EE EEE RAERER ERR EE EEE 
13 DOUBLE INTERRUPT 


Pee HES "Wig Fo Gitta 

CHECK THAT stars VALID IS RESET. ISSUE SELECT 
STATUS VALID SETS. CLEAR DRIVE. 

CHECK THAT DRIVE STA Tus" CHANGE SETS 

(er eters OF DRIVE STATUS 


eae Sea ee SLLLLALELELRLLALLALELELELLALLEELE 


#50. ,STIMES ; TERATIONS 
AV oy tie ae Bre heeere 
ERROR 3 :BAD INIT PRROR 


MOV DRVNUM,L.CS2 ;LOAD DRIVE NUMBER 
MOV #RECAL,L.CS1 LOAD RECAL 


SEG 0070 


ARASSES AS 


RRR 
anid 


agSR 


8 
& 


ages 


ee 8 e+ ee eee 


: 
z 
ag 
+r 
© 
torn 


R DIAGNOSTIC MACY11 27(1006) O0S-O0CT-76 09:17 PAGE 71 SEQ 0071 
3:08 T13 DOUBLE 


-76 INTERRUPT 
006262 104417 TL ;LOAD RK 
4 1 TuATLE :WAIT FOR AST INTERRUPT 
ERR é *TO SLOW/NOT COMPLETE 
baso3e 001662 CLR NTSET sCLEAR INTERRUPT FLAG 
006274 1044 TGETRK :GET RK REGS 
006276 100000 o015S2 git aSvA, ,T.0S :TEST SVAL SET 
01010 : BNE | ay ; YES-SKIP 
Bpeais pisea SuEPce DS? 7Be nov RERRCAL, Frolia 
006322 104011 ERROR ;"SVAL NOT SET RESULT OF RECAL” 
006324 O00463 es bis :ABORT TEST 
006326 1oW437 1$: TWATSS WATT FoR Tee 
Boesse | Booso4 $3 iO TERROPT RETURN 
006334 012737 OS4SSO 001370 2S: MOV #EMSO,EM2N ;ALTER MESSAGE “NO 2ND INTERRUPT OR IT WAS LATE™ 
006342 104002 ERROR 2 
006344 104420 3S: TGETRK ;GET RK REGS 
006346 0232737 100000 oDo1sSse2 BIT #SVAL,T.DS : TEST SVAC SET NOW 
006354 901410 BEQ aes :NO-SKIP 
006356 oi 055235 001470 MOV #EMSVAL , EM1ON 
1 oss462 057702 MOV sEMZINT,DFOL1A 
006372 104012 ERROR le :"SVAL NOT RESET RESULT OF SECOND TEST” 
006374 000437 BA Sos 
006376 032737 o40000 o01sS2 4S: BIT #DSC,T.DS ; TEST DSC SET BY ATTENTION 
OO404 901010 ae BNE S$ tere ; YES-SKIP 
Bpeaa Bt 462 p04 360 MOV #EMe Nt FOLIA 
006422 104011 ERROR ll ;"DSC NOT SET RESULT OF SECOND INTERRUPT” 
006424 000423 BR 50s 
006426 ©'2737 000101 o01600 SS: MOV #SELDRV,L.CS1 ;LOAD DRIVE SELECT 
434 104417 
pease 1p TWATIE ibaiy Fo Boat ERRUPT 
DOE440 ERROR 2 SLOLENOT COMPLETE ERROR 
OOEY42 104421 TCHKOP pe FOR ANY ERRORS 
O06444 104004 ERROR 4; 0R5,6,7  ;REPORT ALL ERRORS 
OO6446 032737 100000 o01SSs2 BIT #SVAL,T.DS ; TEST SVAC SET 
006454 001007 BNE SOs : YES-SKIP 
O064S6 012737 o55235 001460 MOV #EMSVAL ,EMLIN 
OO6464 012737 O46676 057702 MOV #EMSELD, DFOLIA 
eG 104011 ERROR ;"SVAL NOT SET RESULT OF DRY SEL. 


OS: 
 SELSESERAARLESLRARSRERAARALS KRALL ERASA ELA SRALEREASLERAEAEARERERER 
 ETEST 14 SINGLE INTERRUPT FROM ATTENTION 


sé 
;# DO A SEEK TO CYLINDER 0. WAIT FOR INTERRUPT FROM 


# DRIVE ATTENTION. LOWER PRIORITY AGAIN AND MAKE 


3 


0+ b= 0 b= 2 b= 
WOONIOuU fw 


SS8ss3s8 


EARS 


Ba 
Ne 


8 
a 


8 
§ 


FRUERO RUNNER se aaAToRA Sau IRASNS AOU ION TONTS 
: 


3 


a ce 
i 


MACY11 27(1006) 72 SEG 0072 


T14 SINGLE INTERRUPT PRON at fentIon 
+ SURE ANOTHER INTERRUPT DOES NOT OCCUR. CLEAR DRIVE. 
- LEEERELELLERERRESE RELL ARSE EEE LEL ALES REEL LE REREEEE EEE EEE ES EEE SSS 


tenis: aby #50. ,STIMES TERATIONS 
TSSINIT pte subersten 
ERROR 3 
MOV DRVNUM,L.CS2  ; LOAD DRIVE NUMBER 
MOV #SEEK,(.CS1 *LOAD SEEK DCYL LEFT AT 0. 
TLOADRK :LOAD RK REGS 
TWATIE ;WATT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETED ERROR 
TGETRK ;GET RK REGS 
BIT #D1,T.CS1 ; TEST DI SET 
BNE 23 : YES-SKIP 
MOV #EMDI.EMLIN 
MOV SEMSKSF , DFO11A 
ERROR il. "DI NOT SET RESULT OF SEEK TO SELF” 
2g MOV #25. ,RO sLOAD AND DECREMENT A COUNT TO 
3$ DEC RO :7ERO. GIVE CONTROLLER A CHANCE TO 
BNE 3$ : INTERRUPT AGAIN. ERROR IF IT DOES. 
CMP #1, INTSET ; CHECK ONLY CNE INTERRUPT OCCURRED 
BEQ 5o$ : YES-SKIP 
MOV #EMMI.EM13N 
MOV #EMSKSF ,OFOL1A 
ERROR 13 ;"MULTIPLE INTERRUPTS RESULT OF SEEK TO SELF™ 
SOS:  TCHKOP ;CHECK FOR ANY ERRORS 
ERROR 4 ALL ERRORS 
; ae AE BT a _n i 
;ATEST 1s RESET ATTENTIONS WITH UNIBUS INIT 
+ DO A SEEK TO CYLINDER 0 ON ALL AVAILIABLE DRIVES. 
is ISSUE A RESET. MAKE SURE ALL ATTENTION RESET. 
i > ag 2" Aemnpenreeemtas 7° naar te eipamataana tag tir ee ces 
MOV #10. ,STIMES ::D0 10. ITERATIONS 
TSSINIT sean SY SUBSYSTEM 
ERROR 3 T ERROR 
MOV DRVNUM,L.CS2 § ;LOAD DRIVE NUMBER 
MOV #SEEK,{.CS1 ‘LOAD SEEK (TO SELF-0) 
TLOADRK sLOAD RK REGS 
TWAT IE sWAIT FOR INTERRUPT 


ERROR 2 ;TO SLOW/NOT COMPLETE 


106 


BeRekc<Piy “Bt -Set-e Taso8 HY “RekPPArrBarfons harrd Unteus that — 


oO 


006664 104420 TGETRK ;GET RK REGS 
; TEST T 

o4o000 001540 git a »1.CS1 ee eth ) 
mn ee SS ee SPY 
agate ise Eeror IT ft ;"DI NOT SET RESULT OF SEEK TO SELF 
006716 poste 001662 18: CLR INTSET ;CLEAR INTERRUPT COUNTER 
0067ee RESET ;00 UNIBUS RESET 
0067e4 004737 043664 JSR PC, STKINT ;RESET KEYBOARD INTERRUPT 
006739 005037 th yr CLR LCLKTK ; CLEAR rie COUNTER 


734 7 cS: JSR PC MYTIME IMER 
740 pg3233 i2 001660 ce a], LOLKTK Sti! Ao TICKS (MILLISECONDS)? 


gum mommy EGR TAS SP, HER ENN 
ST ae Bs AO 18 SEEDER oun a 


NERE-BR 6 CONTINUE TEST 


en a Seed Os ie 


eM SOI: 
e 
S 


007002 104013 ERROR ;"UNEXECUTED INTERRUPT RESULT OF RESET™ 
007004 000414 
044, 2s: TGETRK GET _RK REGS 
1 040000 901540 BI #01, 7.CS1 TEST DI RESET 
007016 001407 BEQ $08, : YES-SKIP 
007020 012737 OS53S55 001470 MOV EMLEN 
007026 012737 OS6562 057702 MOV aErse DFOL1A 
007034 1040le ERROR "DI NOT RESET RESULT OF RESET” 
007036 SOS: 
.SBTTL ##ILLEGAL DISK ADDRESS ERROR TESTS 
; imtia”» Lites LA Me eat 1). 
3803 j ATEST ILLEGAL DISK ADDRESS (PART 1) 
3811 * ISSUE A SEEK TO CYLINDER O, HEAD 3. 
ele i ite LLEGAL DRESS 5 AERROR ft SEEK rTnGonpueTe SETS, 
ei4 C THAT BOTH TDAE AND eK SMP ETE S ar: i 
-% 
is is GHECKING J a BT fg “ak K RO ETE en 
= : 7 ii ZT Renan -pepersemeanernre see 
st] at i Seen p00062 001262 MOV #50. ,STIMES ;:D0 SO. ITERATIONS 
3820 00704 012701 000003 MOV #3, Ri ‘PRESET FOR SELECTING TRACK 3 


oO eS 1044 Tasintt ;CLEAR SUBSYSTEM 
oe ERROR 3 


is 


a 
‘ 


DZREKC.P11 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY LI 271908) OS-OCT-76 09:17 PAGE 74 
01-OCT-76 13:08 T1é ILLEGAL DISK ADDRESS (PART 1) 
OO70SE 012737 000113 o01600 MOV SRECAL,L.CS1 § ;SET UP TO RECAL 
007064 013737 O01626 901610 MOV DRVNUM;L.CS2 ;LOAD DRIVE 
007072 104417 TLOADRK ;LOAD RK REGS 
go7o7s Lowe TWATIE ;WAIT FOR IST INTERRUPT 
i ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
007100 005037 Oo0l1&62 CLR INTSET sCLEAR INTERRUPT FLAG 
007104 104437 TWATBS ;WAIT FOR INTERRUPT 
007106 104002 ERROR 2 
007110 012737 007116 001110 MOV #1$, SLPERR ;SET LOCAL LOOP ON ERROR 
OO7116 104416 1S: TSSINIT iCLEAR SUBSYSTEM 
007120 104003 ERROR 3 :BAD INIT ERROR 
1 13737 001 001610 MOV DRVNUM,L.CS2  ;LOAD DRIVE NUMBER 
ae 12737 BpaeT? BO1E00 MOV #SEEK.C.CS1 *LOAD SEEK 
007136 110137 001607 MOVB R1,L.OT *LOAD TRACK 
007142 104417 TLOADRK sLOAD RK REGS 
007144 104423 TWATIG :WAIT FOR INTERRUPT 
007146 104002 ERROR :TO SLOW/NOT COMPLETE 
150 032701 op0001 BIT #B1TO,R1 ;TEST IF HEAD ADDRESS HAS BIT 0 
154 001403 2$ IP 
007156 032701 oo0002 BIT #BIT1,R1 TEST IF HEAD ADDRESS HAS BOTH O AND 1 
007162 001007 BNE 3$ *YES-GO CHECK BOTH IDAE AND SKI SET 
007164 104422 2s: TCHKWE ;CHECK OPERATION WITH ERROR 
007166 O02000 IDAERR ILLEGAL DISK ADDRESS ERROR 
007170 900000 0 
007172 900000 0 
007174 104004 ERROR 4; ORS,6,7 ;REPORT ALL DISCREPANCIES 
007176 ious SCOP 1 "LOCAL LOOP ON ERROR 
BR 4§ 
co7202 104422 3S: TCHKWE ;CHECK OPERATION WITH ERROR 
o075be S605 ore ‘ILLEGAL DISK ADDRESS ERROR 
i ’ 
007212 104004 ERROR 4 ;0R5,6,7  ;REPORT ANY DISCREPANCIES 
007214 i1044i5 SCOP ‘LOCAL LOOP ON ERROR TO 1$ 
007216 o0S201 4: INC R1 ;ELSE BUMP TO NEXT ILLEGAL TRACK 
007220 022701 000010 CMP #8. ,R1 ALL ILLEGAL TRACKS SELECTED? 
007224 001334 BNE 
; » 9 gb be ee: bbe 20 ee a nabs ae 
sat EST 17 ILLEGAL DISK ADDRESS (PART 2) 
te ISSUE A SEEK TO CYLINDER 1000, HEAD 0. MAKE SURE 
is ILLEGAL DISK ADDRESS ERROR SETS. CLEAR CONTROLLER AND DRIVE 


PRL SREASEROL LC aLCiiUiuluuuuea es Papas airiinihtorhishihy 


JO6 


/ 
al 


SEG 0074 


RKE11 ee CONTROLLER DIAGNOSTIC ares 27( 1006) 
OZREK 0s T17 


KO6 


0S-0CT-76 


09:17. PAGE 7S 


ERR N SRR 


i hte 


ee Se Se Se Se es Sh et Se os es es ee ee 
He CC CW CC 


C.P11 01-OCT-76 13: ILLEGAL DISK ADDRESS (PART 2) 
3880 “yo seaeeermegtes oer smmmaraeerreir enains 
3881 007226 900004 +it17: SCOPE 
388 x0 012737 O00062 001262 MOV SO. , STIMES ::D0 SO. ITERATIONS 

10441 TSSINIT :CLEAR SUBSYSTEM 
2084 i ERROR 3 ‘BAD INIT 
3286 pareve 012737 000113 901600 MOV SRECAL,L.CS1 ;LOAD RECALIBRATE 
0 $53) 001626 901610 MOV DRVNUM;L.CS2  :LOAD DRIVE 
se 007256 104417 TLOADRK ;LOAD RK REGS 
eh 007260 1044223 TWATI6 sWAIT FOR 1ST INTERRUPT 
en 007262 104002 TO SLOW/NOT COMPLETE ERROR 
007264 005037 201662 CLR INTSET ;CLEAR INTERRUPT FLAG 
1 TWAT ;WAIT FOR INTERRUPT 
25 EE ines ue 
335 007274 012737 007302 001110 MOV #1$, SLPERR SET LOOP TO BYPASS RECAL 
3901 007302 104416 18: TSSINIT ;CLEAR SUBSYSTEM 
3902 007304 104003 ERROR 3 : 
3354 007306 013737 001626 001610 MOV ORVNUM, L ;LOAD DRIVE NUMBER 
3905 007314 012737 000117 001600 MOV #SEEK,{.CS1 LOAD 
3906 007322 012737 001000 001614 MOV #1000; L.DCYL  :LOAD ILLEGAL CYLINDER 
3306 007230 104417 TLOADRK ;LOAD RK REGS 
3909 104423 TWAT 16 ;HAIT FOR INTERRUPT 
3310 1 ERROR 2 } TO SLOW/NOT COMPLETE ERROR 

1 1044 TCHKWE CHECK OPERATION WITH ERROR 
sai ie ipanns .WORD IDAERR ‘DISK ADDRESS ERROR 
3914 007342 900000 "WORD 0 

1S 007244 900000 “WORD 0 

1g 007346 104004 ERROR 4; OR S,6,7 ;REPORT ANY DISCREPANCIES 
3218 .SBTTL ##WRITE HEADER TESTS 


ee nT BAD SECTOR INVORATION Ce 


SECTOR INFORMATION 


Fri sa" cesal val teense BYE 
TRACK 2 TO GET THE FACTORY DETECTED BAD 
SECTOR FILE, 26 SECTOR MODE. 


F AN ERROR OCCURS, READ sepyon a ‘ (8) UNTIL 


6, OR 106 
anit ne Mab tear gO MERE CE 


THAT THE PAC 
STORE THE ENTRIES. FOR LATER USE 


REPEAT THIS SERIES OF OPERATIONS FOR coetony DETECTED 
BAD SECTORS 24 SECTOR MODE, SOFTWARE DETECT 
BAD SECTORS 26 SECTOR MODE, AND SOFTWARE DETECTED BAD 


SEG 9075 


nn 


—_—_ -_ + - 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 76 SEG 9076 
DZREKC.P11 01-OCT-76 13:08 T20 READ BAD SECTOR INFORMATION 


3936 3% SECTORS 24 SECTOR MODE. IF THE NUMBER OF BAD SECTORS FOR 
3937 i 24 OR 26 SECTOR MODE EXCEED 20(10) THE DRIVE IS REMOVED 
3938 is FROM TESTING. 
0 # NOTE: THIS TEST IS RUN IN THE FIRST (QUICK 
coal is VERIFY) PASS ONLY. 
3943 i I I an ain hae ace ENG SE 
$2y¢ Boose sae 900001 001262 : HOV #1, STINES R ON nreR 
so Bee ee BOS an en fe 
3949 007372 000137 010136 oo IMP 28S ELSE PRT TEST 
se) rare ne: 
3053 92 01 001640 MOY BSFREP.R3 ERE PRT Sth SO STORE BS oe SECT FORMAT 
3954 BOraOe pt 3293 007414 001110 MOV #1$, SLPERR ‘eet ERAGR TURN ADDRE ADDRESS PER ENTERNAL LOOP 
3955 14 104416 1S: TSSINIT :CLEAR SUBSYSTEM 
3956 007416 104003 ERROR 3 :BAD INIT ERROR 
33eg 007420. 004437 034574 JSR R4, LRLOAD ;LOAD “L” REGS WITH 
3959 007424 000121 RODATA : READ DATA 
3360 bO7e6 77400 -400 : COUNT 
i beaeo4 IBUFF : BUFFER ADDRESS 
3962 007432 000 2$ BYTE 0 : SECTOR ADDRESS 
393 007433 002 BYTE 2 : TRACK ADDRESS 
4 007434 900632 : NDER 
007436 104417 TLOADRK sLOAD “L" REGS INTO RK 
396 por 109431 TuAT 112 sual FOR nay OE oe 
sore Bbodag § touaoT RKOP SRE RK FOR ANY ERRORS 
3970 OO7446 104004 ERROR 4; 0R5,6,7  ;REPORT ALL ERRORS 
71 O074S0 104415 SCOP1 *LOOP TO 1§ IF SW 9 SET 
37s 0074S2 105737 001103 TSTB  SERFLG ; TEST FOR ERROR IN OPERATION 
3974 007456 001477 BE 7§ :NO-SKIP 
3375 po7eg $700 Ist RO sGETEING A BS FACTORY SECTOR 26 SECT FORMAT? 
3977 007464 37 00002 007432 ADD #2, 23 "NEXT SECTOR ADDRESS 
3378 ogre 37 000012 007432 CMPB #10. ,28 PAST APPLICABLE SECTORS? 
1063 BNE 6 : NO-SKIP 
3980 007502 012737 OS4647 001360 MOV #£MS1,EMIN 
3981 907519 04001 ERROR 1 ;"CANNOT READ BS FILES 
3982 1 3737 001630 001354 25$: BIC ORVBIT,SDEVM § ;CLEAR DRIVE FROM DRIVE MAP 
3983 007520 000137 027236 IMP NEWORYV ‘ABORT TEST PASS. 
000001 2S: CMP #1,RO ;GETTING A BS SOFT SECTOR 26 SECT FORMAT? 
Soe 7530 BBiatd BNE 4g :NO-SKIP 
3987 z pooo02 907432 ADD 82,2 NEXT SECTOR ADDRESS 
3288 078 et oo00026 007432 CHP see. 2 128 APPLICABLE SECTORS? 
3990 007550 012737 OS4647 001360 MOV #£MS1,EMIN 
3991 007556 104001 ERROR 1 "CANNOT READ BS FILES” 


+ ee 2 


me ee 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC 
DZR6KC.P11 01-OCT-76 13:08 
2335 007560 000754 
eral poreee aC oco0de 
1014 
007570 Be2737 o0000e 007432 
$e Hien tsar SS He 
no pores 1os081 OS4647 001360 
Woe bovele 
432 
Se ee Gee Be HR 
4006 007634 001005 
mt pr eae hte OS4647 001360 
4 1 1 
int 007646 000721 
4011 007650 105037 001103 
‘Bie 007654 000657 
4014 007656 005737 
4015 O00766e 0014 anaes 
mt 007664 012737 OS4742 001360 
4017 007672 104001 
ais 007674 000706 
ast 007676 012701 060614 
4022 007702 11 177777 
4023 007706 001417 
4024 007710 Olele3 
- 4025 00771e OQlele3 
4026 007714 005205 
“027 007716 Oee70S O000e5 
4028 0077ee 001367 
4029 007724 012737 055020 001360 
4030 007732 104001 
4031 007734 043737 001630 001354 
mi 007742 000137 236 
4034 007746 005200 
4035 007750 Qe2700 Oo00001 
4036 007754 ets . 
4038 007762 016397 ete 3 
4040 007774 000137 007414 
cous tees ath 4 
BS HE BIE en 
4O44 Steed pieces vine 007432 
oe tite 
4047 010026 013703 001636 


Ss: 


6$: 


8S: 
9S: 


10S: 


115: 


12S: 


Sae 


age "2 2g 


ae 
S 


6 
pers) EMI 
ess 


SERFLG 
1$ 


IBUFF +4 
#EMSe,EMIN 
2ss 
#IBUFF+10,R1 
#-1,(R1) 
11$’ 


(R1)+, (R3)+ 
(R1)+, (R3)+ 
RS 


#ENS3, EMIN 
DRVBIT, SDEVM 
NEWDRV 

RO 

#1,RO 

12$ 

#-1, (R3)+ 

R3, BSS26P 
#12, 25 

1$ 

#2, RO 

13 

#-1, (R3)+ 
#1,2$ 

RS, BS26CT 


BSFe4P,R3 


; STORE TOT 


SEQ 0077 


fara A BS FACT SECTOR 24 SECTOR FORMAT? 


NEXT SECTOR SS 
;PAST APPLICABLE SECTORS? 
:NO-SKIP 


;"CANNOT READ BS FILES” 


; NEXT 
:PAST 
;NO-SKIP 


;"CANNOT READ BS FILES 


CTOR (BS SOFT 24 SECT MODE) 
ICABLE SECTORS? 


;CLEAR ERROR FLAG 

:D0 NEXT READ 

;CHECK FOR ALIGNMENT PACK 
;NO-SKIP 

;"ALIGNMENT PACK. DRIVE ABORTING” 


;SET TO START OF BAD SECTOR DATA 
; TEST roe ALL ONES (END OF DATA) 


: YES- 

s 

:STORE CYLINDER 

; TRACK AND SECTOR 

‘BUMP ERROR COUNTER 

;DOES TT TOTAL 20 FOR THIS. FORMAT? 
TEST AND MORE NEXT ADDRESS 


;TO_MANY BAD SECTORS 
;CLEAR DRIVE FROM TESTING 
;ABORT PASS 


;BUMP_TO_NEXT 

se Titans BS SOFT 26 SECTOR MODE? 
;INSERT END OF FIELD FLAG 

;SET aS 2a TQ BAD SECTOR SOFTWARE FIELD 
;SET TO Fipst SECTOR THIS MODE 


READ_IT. 
‘NOW TESTING BS FACT 24 SECTOR MODE? 


sNO= 
; INSERT END OF FIELD FLAG 


SET TO FIRST se Mays at’ 


26 SECTOR MODE 
;CLEAR COUNTER FOR COUNTING 24 SECT BS 
SET POINTER FOR STORING BS 


RKE11 FUNCTIONAL leg oP pesmi meres gst OS-OCT-76 09:17 PAGE 78 


DZREKC.P11 O1-O0CT-76 13: 
eg 010032 000137 907414 
Se pias seems coo 

HS Slee | 
4053 010050 O1 001642 
4054 019054 112737 13 
¥OSS 010062 000137 907414 
ieee 010066 012723 
40S8 010072 010537 001650 
4059 
Woe1 010076 012700 057734 
4062 010102 Ole703 O60i44 

4 101 000312 
SSNS SRR 
4066 
4067 010114 020003 
4068 States 001373 
Soro 10120 OO0O406 
4071 ties thf 055701 
5 HR HE casi 
4074 
4075 010136 
4076 
4077 
4078 
4073 
4080 
mitt 
4083 
4084 
4085 
4086 010136 
4087 010140 Ole737 000062 
4088 nites te tes4 Wese 
Be titi ieee bles 
4091 O10164 104416 
apes 010166 10400 
40394 010170 OO4437 034574 
Se te Bee 
4097 bio08 beSe04 
4098 010e0e 000 
4099 010203 000 
I ‘ 010e04 000312 
410e 010208 OO04437 040776 
4103 010212 000600 


007432 


001360 


001262 
001664 


SEG 0078 
AD BAD SECTOR INFORMATION 


JMP 1$ ;GO READ 
138: 44 #3,R0 a TESTING BS SOFT 24 SECTOR MODE 


14$ ; 

MOV #-1, (R3)+ : INSER Kt END OF FIELD FLAG 

MOV R3, BSSO4P 5 STORE POINTER TO BSS 24 SECTOR MODE 
MOVE 13,2 :GET START OF FIELDS BSS 24 SECT MODE 
IMP 15 :G0 READ IT 

s INSERT END OF FIELD FLAG 


14S: MOV #-1, (R3)+ 
STORE COUNT BSS 24 SECTOR MODE 


MOV RS, BSC4CT 


MOV #8S26 ,RO ;GET START OF BAD SECTOR BUFFER 
MOV wBSo4452.,R3 ;GET END OF BUFFER 


27$: CMP #312, (RO)+ ;TEST IF_ANY SECTORS BAD IN CYL 312 
BEG 524 , i Yee - GET OUT 
CMP RO,R3 ;CHECK IF ALL OF BUFFER TESTED 
BNE 27$ :NO - LOOP 
BR 28s sEXIT 

26S: HOV #DRVABT,EMIN  ;"BAD SECTOR IN AREA FOR TEST” 
MP 3 

28s: 

$ jceseonpnemmmnenree aa i 

ATE FORMAT IN 26 SECTOR FORMAT 

i. FORMAT CYLINDER 312, TRACK O AND TRACK 1 FOR 26 SECTOR 

* FORMAT. VERIFY FORMAT THAT DATA Late DID NOT 

1% OCCUR WITH WRITE HEADER OR IN READING DATA 

it BUFFER AFTER READ HEADER. 


+ LEER EKER EK ELK EEK EE EK EEL EEE REEL EERE AEE E EEE EER REL ER EERE ERE 


+éT21: SCOPE 
MOV #50. ,STIMES ;;D0 sO. oATERATIONS 
COR #312, “pede ieee AR oR OR POINTER 
eRe 11 ik RACK POINTER 
TSSINIT ‘et LEAR 
ERROR 3 : BAD NET yeeRROR 

9$: JSR R4, LRLOAD ;LOAD "L” REGS 
WRHEAD : WRIT 
-102 ; WORD CNT FOR 26 SECTOR MODE 
OBUFF R 
-BYTE O ISECTOR 0 

11S: “BYTE 0 TRACK O 
312 “CYL O 


;GENERATE DATA 


JSR R4, GENCOM 
000600 ;BUILD HEADERS-NO BAD SECTORS 














RKEL1 FUNCTI CONTROLLER DIAGNOSTIC MACYLI 27: ) OS-OCT-76 09:17. PAGE 79 SES 0079 
DZREKC.F11 «01-OCT-76 13:08 T2] roan IN 26 SECTOR FORMAT 
4104 010214 012737 910224 001110 MOV S111S,SLPERR § ;SET LOCAL LOOP ON ERROR 
4 1 i. ge 1s :SKIP INI 
é $ 
4107 O10224 104416 TSSINIT sCLEAR SUBSYSTEM 
4] 10226 104003 ERROR :BAD INIT ERROR 
uige Sitsso iRaa37 tS oe eoR TNTERRUPT 
sii ide iBsoae ERR :T0 SLOW/NOT COMPLETE ERROR 
4113 010236 104421 TCHKOP :CHECK FOR ANY ERRORS 
418 610240 104004 ERROR 4; OR S,6,7  ;REPORT ALL ERRORS 
. 
ne o1de42 104415 SCOP! ; INTERNAL LOOP TO 1118 
4118 010244 012737 010304 001110 MOV 8112$,SLPERR § ;SET LOCAL LOOP ON ERROR 
4118 O1Ces2 oO] MOV Re, R3 ‘BUILD POINTER TO RKDB 
4] ea goons ADD 8RKDB,R3 
“lei 010060 1 aL MOV 8] Ri ;SET POINTER TO BUFFER 
4122 O10264 034574 J R4, LRLOAD :LOAD “L" REGS 
4] ier 900125 aatcao :READ HEADER 
i 1 9 "NO WORDS COUNT 
4125 010274 900000 0 :NO BUFFER 
4] 10676 -BVTE ; SECTOR 0 
4] 1 10S: .BYT s K 0 
4! 10300 lz 3le : CYL 3le 
4130 010302 ocoo4oe BR 2s :SKIP INIT 
413 1 lles: 
4] 1 10441 TSSINIT :CLEAR SUBSYSTEM 
4] l i ERROR :BAD INIT ERROR 
4134 010310 104417 2S TL "LOAD RK REGS 
4135 1031 1paie3 TWAT IG ‘WAIT FOR INTERRUPT 
“i 10314 1 :TO SLOW/NOT COMPLETE ERROR 
4] 10316 104421 TCHKOP 5 CHECK FOR ANY ERRORS 
4] 1 i E 4: OR 5,6,7 *REPORT ALL ERRORS 
4140 O1 1 oo0003 MOV #3, RO SET COUNT 
4141 O1 313 S$: MOV (R3), (RL)+ : GET 
4} l TGETRK GET RK REGS 
4143 O1 100000 001550 BIT 8OLT,T.cS2 {TEST IF DATA LATE 
4144 010340 dor419 REQ 3$ :NO-SKIP 
4145 010342 012737 os3442 053071 MOV SEMDLT,EM13 
4146 919350 012737 055570 057702 MOV 8EMROB; OFO11A 
4147 10356 104013 ERROR 13 "DATA LATE SET RESULT OF DB READ 
448 oi 10441 SCOP] *LOCAL LOOP TO 1128 
4150 010362 032737 100000 OO01S4O 3s: BIT 8CERR, T.CS1 ;TEST IF CONT ERROR SET 
4151 010370 O01410 BEQ 4§ :NO-SKIP 
4152 010372 012737 oss614 001500 MOV sEMCERR, EMI3N 
4153 p10405 012737 055570 057702 MOV sEMROG, OFOLIA 
4154 O10406 104013 ERROR 13 s"CERR SET RESULT OF READ DB 
4155 O10410 104415 SCOP! LOCAL LOOP TO [1 
4156 O1041e2 4S; DEC RO ;DEC COUNT 
4157 O10414 134 +4 ‘LOOP IF NOT ZERO 
4i5@ O10416 O1 O10426 01110 MOV B117$,S$LPERR  :SET LOCAL LOOP 117$ 
4153 010424 O00402 BR 7§ :SKIP INIT 














REI FUNCTIONAL CONTROLLER DIAGNOSTIC macy. 2711 OS-OCT-76 09:17 PAGE 80 SEG C08 

Ma St een yeas see Moree ET OANGE INCSE SECTOR FORRAT 

aie pce 1 — TSSINIT AR T 

He oie iPids 035114 7$ ERROR By ROSTHOD init ERROR HEADERS 

4le4 bi ba3e 104421 : ee. +PRKOP : SA TROLLER BENE Ee 

alee Ol D413 Femon 13)’ EBbATA LATE ST RESULT OF DATA BUFFER READ” 

Stee Bites Bases ERROR “OPERATION 4 SLOW” MESSAGE 

4168 :0R “HEADER O NOT FOUND” MESSAGE 

4170 g1046 004437 040776 ISR R4, GENCOM 

4171 O104S2 190200 100200 :COMPARE IBUF 8 OBUFF (HEADERS ) 

332 O1d454 600414 I] 6 :GO0D RETURN-NO MISCOMPARES 

4173 O104sé 0401S ERROR 15 REPORT 1ST MSCOMPARES 

f 

4175 OL0460 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 

4] O1Oe4 128: DEC :DECREMENT IT 

4] 10466 001407 BEG 6$ EXIT IF ZERO 

4128 010470 904437 040776 ISR R4, GENCOM 

4180 O10474 oyDD00 40000 RESUME COMPARE 

4181 010476 Oo0403 BE 6$ :GO0D RETURN-NO MORE ERRORS 

4182 910500 1 ERROR 16 !REPORT NEXT ERROR LINE 

4183 O1 BR 128 LOOP 

i O10504 104415 SCOP *LOCAL ERROR LOOP TO 1178 

4186 O10SO0& 105737 001607 6S: TSTB L.DT WAS TRACK 1 JUST DONE? 

487 010S5i2 01010 BNE 9$ : YES-SKIP 

4189 010514 112737 900001 010203 MOVE #1, 118 ;CHANGE PARAM TO LOAD “L™ WITH 

4150 5105¢2 il EtG 010277 MOVE 81.108 > TRACK 2 

High l ea 10! IMP 9g ‘JUMP TO DO ENTIRE TEST ON TRK 1 

4133 010534 Qs: 

413 .SBTTL ##HEADER RECOGNITION TESTS 

4197 s at ie ae en oe 

iz ;#TE BAD SECTOR ERROR 

4200 + FORMAT CYLINDER 312, TRACK 0, ON SCRATCH PACK TO HAVE 

4201 # SECTOR 0 (BIT 1S OR WORD HEADER RESET) AND SECTOR l 

120¢ 1% (BIT 14 OR WORD 2 OF HEADER RESET) TO BE BAD SECTORS 

4 ii AND ALL OTHER SECTORS GOOD. 

Spe :# ISSUE A WRITE DATA OR 400 WORDS TO CYLINDER 312 TRACK Qo, 

4206 :# SECTOR 0. MAKE SURE BAD SECTOR SETS. 

4207 i WRITE DATA TO CYLINDER 0, TRACK O, SECTOR i OF 400 ORD 

4208 :# MAKE SURE BAD SECTOR ERROR SET. {SSUE A WRITE DATA 

4208 :# OF 400 WORDS TO CYLINDER 0, TRACK 0, SECTOR 2. MAKE 

4210 i SURE NO ERROR SETS. 

“ele } *SSSSSERELESESRELELALSSELELASLSESERESRSRARSRSAAELFRLHARERRAALAREARER 

4213 910534 tét22:; Sc 

4214 O10636 012737 o00062 oOl2b2 MOV 850. , STIMES -D0 SO. ITERATIONS 

4215 O10544 012737 O003i2 O0lé6e4 MOV #312, REFMT tEET RE REFORMAT SWITCH 


RKG11 FUNCTIONAL CONTROLLER 0 
OZREKC.P1I  Ol-OcT-7& 13:08 
W216 O1OSS2 104416 

4817 pies ies 

M513 DSS oar ONT 
4351 biges rears 

ei Gites be 

Gece BiSesS poosie 

455, 

user 

458 O1OS74 OO4437 O4O776 
4ee3 010600 000600 

4231 O1D602 012700 062606 
W232 10606 042720 100000 
W533 010612 042750 100000 
We24 DIODE O05750 

4535 010620 942750 40000 
4exe 010624 OM2710 040000 
4538 010630 104417 

4539 010632 10443] 

4e40 O19 104002 

W242 010636 104421 

4543 010640 104004 

W544 1042 012737 OLOESD 001110 
454s DIOESO 104416 

us4e 10652 104003 

4547 Q10654 004437 O34S74 
usu@ 10860 000123 

4545 10662 177400 

4550 D1OE4 62604 

455] D10666 OOO 

ues O10? «O00 

4253 010670 o00312 

4355 10672 104417 

4u>ee D1DE74 | [O4MOY 

W257 010676 104002 

42=S 010700 022737 oDN002 o10e66 
260 010706 O0I41S 

¥>E> 010710 104422 

45E3 010712 O00000 

4364 010719 900100 

4265 010716 900000 

dee 010720 104004 

Wee 010722 104415 

4270 010724 122737 pO0002 ol0EEE 
4271 010732 001405 


SS: 


1$: 


BAD SECTOR E 
TSSINIT 
ERROR 3 


OR 


wo—+~mom F3 


40-4 0-4 0-4 

OoaAoo= 
reste) 
oe 


ec 
a 


4 ; OR 5,6,7 


CMPB #2,5$ 
BE 7$ 


TAGNOSTIC MACYL1 27(1006) OS-OCT-76 09:17 PAGE 81 
Tee RR 


;CLEAR SUBSYSTEM 

;BAD INIT ERROR 

;LOAD “L™ REGS 

;WRITE HEADER 

sWORD COUNT FOR 2& SECTOR MODE 
; BUFFER ss 

;S-<CTOR 

; TRACK 

; CYLINDER 


;WITH NO BS BITS 

;RESET BIT 15 IN WORD 2 OF 
;SECTOR O HEADER AND BIT 14 
;IN WORD 2 OF SECTOR 1 HEADER. 
;ALSO CORRECT THE VRC 


;LOAD RK REGS 
;WAIT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


; CHECK 
;REPORT ALL ERRORS 
;SET LOCAL LOOP ON ERROR 


;LOAD_“L™ REGS 
;WRITE DATA 
WORD 


;LOAD RK REGS 
sWAIT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


;JUST READ SECTOR 2? 
YES - SKIP 


;CHECK OPERATION WITH ERROR 
;EXPECTED BSE 

;REPORT ANY DISCREPENCIES 
;LOCAL ERROR LOOP TO 4§ 


;WAS SECTOR SET TO 2 
; YES-SKIP 


SEG O08! 


SON TROUL 


w9 ga 


= he SERB 


<£ Tf 


O00 80000 280 OOOOO000 O80 DOOO0X200 
oe ob + b-+0—- 8 ss a ee ee ee ee oo oo ~—>b-- ee eee ed oe ee ee ed 
ebb b= b 26-46 - bs b+ o- o-+b-=b 2 O-+ oh hb 2h = o-+o-< o- 2626-5 


SRE RUREE Fé RERERE 





:08 


105237 010666 
000743 





000062 O0lete 
O0003ie O01bE4 


034574 


062610 
000001 


000006 


O11066 001110 


R DIAGNOSTIC 


eC he ee be ote 


megy ii Foote ORE SHOR mal 17 PAGE 62 SEG 9082 


S$ 
4§ 






4 ; OR S,6,7 





ep pany sayy nc perenne eens 


HEADER VR 


CYLI TRACK 0, ON SCRATCH PACK TO HAVE 
SRE ait BAF uenOER HEADER Cac’ ISSUE A WRITE DATA 
OF EACH OF THE SECTORS of}TH A BAD HE 
ore HEADER VRC ERROR 
Roe OD HESRER AND TAKE SURE NO ERROR OCCURS 
Pr ee ae eres a 


»STIMES 


#50. 
#312) REFMT 


R4, LRLOAD 


oo 


R4, GENCOM 


8OBUFF+4, RO 
#81T0,R3° 
R3, (RO) 


R3, (RO) 

3$ 

R3, (RO) 
0 


R3 
1$ 


4 ; OR 5,6,7 


#4$, SLPERR 













;BUMP TO NEXT SECTOR 
LOOP 












;CHECK FOR GOOD OPERATION 
REPORT ALL ERRORS 









“— VRC. _ MAKE 
ISSUE A WRITE DATA TO 











;;00 SO. ITERATIONS 












DRITE HEADER 
: WORD COUNT 
;BUFF ADD 
;SECT 

; TRACK 

sCYL 


;BUILD HEADERS NO BSE 
ADDRESS OF 


wes 
2 3s 
m 


T_IT 
BUMP TO NEXT YRC WORD 


;SHIFT_ THE SELECT 
;IF BIT NOT SHIFTED OUT-LOOP 


SREPORT ALL ER RORS 


;SET LOCAL LOOP 
CLEAR SUBSYSTEM 
:BAD INIT ERROR 








FO? 


RKB 11 TIONAL CONTROLLER DIAGNOSTIC Y11 27(1008) 05-OCT-76 09:17 PAGE 82 SEG 
BoBeb PTY et Set oe de so8 See ee VRE ER Goss 
4328 011072 004437 034574 JSR R4, LRLOAD sLOAD “L” REGS 
43239 011076 000123 WRDATA ‘WRITE DATA 
< 911199 774 -4 : WORD COUNT 
4331 O11 OBUFF : BUFFER ADD 
4aa5 Dutibe B00 he YES BKK 
es) pit ife ooosts 312 CYL 
ee Gus mes ge Paton 
1338 Bite 1eiose ERR 2 :T0 oR OT ERP ETE ERROR 
4340 O11116 022737 000020 011104 CMP #16. ,5$ sWAS THIS WRITE SECTOR 16? 
434) 011124 o01415 BEQ 6§ : YES-SKIP 
4343 011126 104422 TCHKWE :CHECK OPERATION WITH ERROR 
4344 011130 g5q009 0 
| wus 11132 40 sHVRC EM EXPECTED 
4346 011134 900000 0 
4347 011136 104004 ERROR 4; ORS,6,7  ;REPORT ANY DISCREPENCIES 
4349 011140 104415 SCOP! sLOCAL LOOP TO 4S 
4351 011142 105237 011104 INCB OSS BUMP SECTOR IN “L™ REG 
4352 011146 000016 011104 CMP 16,55 IF SECTOR IS 16 OR LESS 
| 4363 O111S4 BLE 4g : LOOP 
4354 011156 00402 BR 7§ ELSE EXIT 
| 4365 011160 104421 6S: TCHKOP ‘CHECK LAST OPERATION NO ERRORS 
4358 011162 104004 ERROR 4; OR S,6,7 REPORT ALL ERRORS 
| 435 011164 7S: 
4359 ss SLLESAERRESKELAAKARE SL SHEKEL SHAE RASA RELEASE RARE SHALL EL ELA RL ELE ES ESE 
| 4360 ;ATEST 24 BAD SECTOR ERROR AND HVRC ERROR 
| 4363 1 FORMAT CYLINDER 312, TRACK O SUCH THAT SECTOR ZERO HAS 
| 4363 1% BOTH A BAD SECTOR ERROR AND HEADER VRC. ISSUE A WRITE DATA 
4364 1 TO CYLINDER 0, TRACK Q, SECTOR O. MAKE SURE ONLY HEADER VRC 
| ses j# ERROR SETS. 
i 4367 ee SERERELEAELHEAKSES ALAS HEA RSE SEAEAARELA SELES RAREARR RE REAAAARARAKSE 
| 4368 011164 00004 +5124: SCOPE 
| 4369 011166 012737 oO0062 001262 MOV #50. ,STIMES :;DO 50. ITERATIONS 
4379 11174 012737 O00312 O01664 MOV #312’ REFMT ‘SET REFORMAT SWITCH 
4371 011202 104416 TSSINIT CLEAR SUBSYSTEM 
1372 011204 104003 ERROR ‘BAD INIT ERROR 
43274 011206 004437 034574 JSR RY, LRLOAD sLOAD "L" REG 
| 4375 Oliele 0001e7 WRHEAD ;WRITE HEADER 
| 4376 O11214 177676 -102 WORD CNT FOR 26 SECTOR MODE 
4377 11216 062604 OBUFF : BUFF 
| 4378 Olle2o 000 “BYTE 0 : SECTOR 
«-4379°«OL 1221 900 BYTE 0 _ TRACK 
| 4360 Ollze2 000312 312 : CYLINDER 
| 4382 011224 004437 040776 JSR RY, GENCOM 
4383 011230 000600 600 BUILD HEADERS-NO BSE 





07 


RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 84 ; SEG cOS4 
DZREKC.P11 01-OCT-76 13:08 T24 BAD SECTOR ERROR AND HVRC ERROR 

4 

is 011232 042737 100000 O6260E BIC SBITIS,OBUFF+2 ;CLEAR BIT TO SET BSE,LEAVE YRC BAD. 
4 il 104417 TLOADRK 

382 piieig 1praa TWAT le italy BA ERP ERRUPT 

4389 O1le44 104002 ERROR 2 SLOW/NOT ERRPL ETE ERROR 

4 ll 1unel TCHKOP a FOR ANY ERRORS 

4332 11 1 ERROR 4; 0R5,6,7 REPORT ALL ERRORS 

4394 O11 904437 034574 JSR R4, LRLOAD REGS 

4395 bt See Beats WRDATA HMRI bata 

439% 011260 177400 -400 

4397 Oll2be O62604 OBUFF + BUFE capt 

4398 011264 000 -BYTE 0 5 SECTOR 

4399 011265 000 "BYTE 0 : TRACK 

#400 011266 000312 312 CYLINDER 

4402 011270 104417 TLOADRK sLOAD RK REGS 

4403 Olle7e 104424 TWAT32 tuAiT FOR INTERRUPT 

108 011274 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 

W406 O11 104422 TCHKWE seein OPERATION WITH EXPECTED ERR 
4407 Bt tS08 090006 0 

440@ 911302 oo0040 40 sHVRC ERR EXPECTED 

4409 011304 900000 0 

#410 011306 104004 ERROR 4; ORS,6,7  ;REPORT ALL DISCREPENCIES 

ele = SLEESLLERAEAA SSSR LRALAEESAE SHEAR SEL ARLE RAL LALA LLL RERAARELEEAELE EEE 
aui3 ;ATEST 25 OPERATION INCOMPLETE 

4415 2 FORMAT CYLINDER 312, TRACK O SUCH THAT SECTOR 21 HAS THE 
4416 * WRONG FORMAT. ISSUE A WRITE DATA OF 400 TO CYLINER 0, 
#17 ii TRACK 0, SECTOR 21. MAKE SURE OPI SET. 

4419 se SKESFESLERELA SLE RLALA ES LAS RRAALREA RE RHRAR REALL LRA HERRERA RERAARE LEE 
4420 011310 ocDp0004 téT2s: § 

4421 011312 012737 ocODdbe oD1cb2 MOV #50. STIMES ;:D0 SO. ITERATIONS 

4422 011320 012737 OO02i2 OO1664 MOV #312, REFMT iT REFORMAT | STITCH 

4423 011326 104416 TSSINIT LEAR SUBSYST 

wed 011330 104003 ERROR 3 BAD INIT ERROR 

4426 011332 004437 034574 ISR R4, LRLOAD ope "L” REGS 

4427 011336 000127 WRHEAD “WRITE HEADER 

4428 011340 177676 -102 ; WORD COUNT FOR 26 SECT MODE 
4429 011342 062604 OBUFF F ADD 

4430 011344 000 “BYTE 0 ; SECTOR 

4431 011345 000 “BYTE 0 : TRACK 

t432 011346 900312 312 CYLINDER 

4434 011350 004437 040776 ISR R4, GENCOM 

WHS 011354 o00600 600 ;BUILD HEADERS-NO BSE ERRORS 
4437 011356 052737 001000 063004 BIS #81T9,OBUFF+200 ;CHANGE FORMAT IN SECTOR 25 

W438 011364 052737 001000 063006 BIS #8179; OBUFF+202 ;CORRECT THE VRC 


Benekc-Pi Gl 
4440 
42 
444, 
4443 


je ] 
— 
a 3 


2 RS az 


O0000 O00 O000000 080 oO 
+ 26-0 pp > +p > 2b -2 bs Do pe He oo e-e— 
os 
D 94 
o- 


BH Biainat BEES 


uu 
me 
£o 


4492 


BRERA fd.) SERERPRRRE CA se saqana ai ii pascaued os #5: 


O0000 O80 OOOO000O 20000 
Se ee oe ee od a De en ee eo el So od 
b+ +b b+ tabs ee ee ee ee ee ee ey ee ee oe 


att 


(em ee ae ee 


1-Se1 


104417 
104431 
002 


104421 
104004 


37 
000123 


H 
Ce ee TBr te eC OERATION INCOMPLETE 


034574 


00006e O0l26e 
O00031e OO01664 


034574 


-0CT 


TLOARDRK 
TWAT112 
ERROR 2 


09:17 PAGE 8S 


( 
‘Seo o08s 


nett FO FORT NTERRUPT 
:TO SL OW/NOT COMPLETE 


TCHKOP ;CHECK FOR ANY ERRORS 
ERROR 4; OR S,6,7 REPORT ALL ERRORS 
JSR R4, LRLOAD ;LOAD “L” REGS 
WRDATA ‘WRITE DATA 
-400 400 WORDS 
F ; BUFF 
-BYTE 25 ;SECTOR 2S 
-BYTE OQ s TRACK 0 
3le sCYL 3le 
TL *LOAD RK REGS 
TWAT4S ‘HALT FOR INTERRUPT 
ERROR ;TO SLOW/NOT COMPLETE 
ae seaee OPERATION EXPECTED ERROR 
50 ;OPI EXPECTED 
ERROR *REPORT ANY DISCREPENCIES 
: suseessessenvensbaeatiaheanssieanennessnsanasnianesseaenaesas 
:ATE OPI WITH HVRC ERR 
- FORMAT C R312, TRACK O THAT A_HE 
+ ERROR 1§ BAESENT Ab. SECTOR 1F-AAS THE WRONG SEER RNET. 
+ TRACK BET Te.” THAT BOTH OPERATION. INCOMPLETE 
i HEADER URS SET: 
} 


ur: 
“~ 


MOV #50. ,STIMES 
MOV #312, REFMT 
TSSINIT 
ERROR 
JSR R4, LRLOAD 
WRHEAD 
-10e 
OBUFF 
BYTE 0 
BYTE 0 
312 
JSR R4, GENCOM 
600 

SOBUFF+134,RO_ 
BIS #8179, (RO}4 
BIS aB1T3, (RO)+ 
ADD 
BIT satT0, (RO) 


5 emer pser geomet 


::D0 SO. ITERATIONS 
SET REFORMAT SWITCH 
CLEAR SUBSYSTEN 

‘BAD INIT 


;LOAD “L” reas 

“WRITE HE 

; WORD COUN For 26 SECT MODE 
ADDRESS 

SECTOR 

; TRACK 

;CYLINDER 


;BUILD HEADER- NO BSE ERRORS 


;GET ADDRESS 2ND WORD HOR 17(8) 
i SET FORMAT 24 SECT PER TRACK 
SET VRC BIT 

;BUMP TO HVRC WORD HOR 20(8) 
;TEST BIT 0 












RAB2 FUNCTIONAL SRUTBOLLER BIAGNOSTIC perv. 27440082 act Oh? PAGE 86 SEG CO8é 














040776 JSR R4, GENCOM 
600 


f 
B 

Bg 
BS 


;BUILD HEADERS-NO BSE ERRORS 





4496 011534 001403 BEQ 1$ ;RESET-SKIP 
ge BIEN 000001 Er ggtT0, (RO) ;CLEAR BIT 
44 11544 710 000001 1S: IS #BITO, (RO) ;SET BIT 
4500 ;FORCE OPI AND HVRC ERROR 
ited ion? es: TLOADRK ;LOAD RK 6 
1] 1 1 TWATL12 :WAIT FOR INTERRUPT 
011554 10400e ERROR 2 ;TO0 SLOW/NOT COMPLETE ERROR 
den 1} 1 i TCHKOP ;CHECK FOR ANY ERRORS 
2H Biiees 164054 ERROR 4; ORS,6,7  ;YES-REPORT ALL ERRORS 
f 
ve09 O1lsee Ooeg uapata “TRORD HRTTE BATA 
10 BLESS Ty 7abG “tb 400 hOROS 
4511 011572 062604 OBUFF : BUFF MADDRES Ss 
ueis pit 7 BYTE 1? ;SECT 17 
1 ll .BYTE 
wie 011576 900312 SCYLINDER 312 
4516 011600 104417 TLOADRK ;LOAD RK REGS 
4517 O1160e 104425 TWATYS hart FOR INTERRUPT 
28 011604 104002 ERROR 2 :T0 SLOW/NOT COMPLETE 
45e0 O11606 104422 TCHKWE ;CHECK WITH EXPECTED ERROR 
45e1 011619 000000 0 
4See Oll6le 000060 60 ;HVRC ERR & OPI EXPECTED 
4523 011614 000000 
45e4 011616 104004 ERROR 
4525 ; jeeeeerssnnsenstarkeneelsioensnesseesnnsneennessunsansanesceeans 
ieee ;ATE HVRC IGNORE ON NON-ADDRESSED SECTOR 
4528 i FORMAT CYLI 312, TRACK O SUCH THAT SECTOR 20 HAS AN HVRC 
| 4529 7% ERROR. ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312, TRACK 0, 
| 4530 3% AND SECTOR 21. MAKE SURE HVRC IS NOT SET AT THE 
4531 S END OF THE OPERATION 
4533 [Pepe eee eeeenaeaeneeaeaeeceeaeanneannnnaeaeanneaeaceeats 
4534 011620 900004 tit Te: 
4535 Olléee 012737 900100 001262 ay #100,$TIMES ; 100 ITERATIONS 
4536 011630 012737 000312 001664 MOV #312, REFMT apy T REFORMAT SWITCH 
4538 O11636 104416 TSSINIT sCLEAR SUBSYSTEM 
wee 011640 104003 ERROR 3 ;BAD INIT ERROR - 
| 4541 011642 004437 034574 JSR R4, LRLOAD ;LOAD “L” REGISTERS 
| 4293 oiiese prveee toe ibaa cant F FOR 26 SECTOR MODE 
| Bah BIIee beatae OBUFF ‘BUFF. ADD 
Bee ene 8 ane 
j s 
4 ieee poste 3l2 CYLINDER 
| 


a 


JO? | 


RK&11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLI 27(1006) OS-OCT-76 09:1 PAGE 87 SEG 0097 
DZREKC.P11 O1-OCT-76 13:08 127 HVRC IGNORE ON NOR-ADORESSED CTOR 
4552 O11666 012700 062750 MOV #OBUFF+144,R0  ;ADDRESS OF HEAD 20 HVRC WORD 
4553 011672 Ole701 o00002 MOV #BIT1.R1 BIT 1 CONSTANT 
-oos O11876 030110 BIT R1, (RO) TEST BIT 1 SET 
4555 O11 001402 BEQ 1$ SET-SKIP 
4556 011702 040110 SIC Ri, (RO) PELE CLEAR BIT 1 
4557 011704 01 BR 2$ : 
#358 O11 050110 1$: BIS R1, (RO) :SET BIT 1 
4560 911710 104417 2s: TLOADRK sLOAD RK REGS 
4561 O11712 104431 TWATL12 {WAIT FOR INTERRUPT 
#36 011714 104002 ERROR 2 TO SLOW/NOT COMPLETE 
4564 O11716 104421 ;CHECK FOR ANY ERROR 
4565 011720 104004 ERROR 4; ORS,6,7  ;REPORT ALL ERRORS 
4567 011722 004437 034574 ISR R4, LRLOAD sLOAD “L” REGISTER 
4368 01172 123 WRDATA *WRITE DATA 
11730 177400 -400 WORD COUNT 
4570 011732 O62604 OBUFF : BUFF 
4571 011734 021 .BYTE 21 : SECTOR 
ioe O11735 000 BYTE : TRACK 
11736 000312 312 : CYLINDER 
4574 011740 104417 TL ‘LOAD RK REGS 
4575 011742 jO44>4 TWAT32 WAIT FOR INTERRUPT 
4576 911744 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
4578 O11746 104421 TCHKOP ;CHECK FOR ANY ERROR 
4579 011750 104004 4; 0R5,6,7 REPORT ALL ERRORS. 
4581 
#58 .SBTTL #*DATA TRANSFER TESTS 
4584 - = SELLS LLSLEAA RESELL KARA EAA LA ALLA ALA LAL AREAL RAE ALALERRHKASAKEEEEE 
4585 jATEST 30 WRITE AND READ ONE SECTOR 
ue? 1 & FORMAT CYLINDER 312, ALL TRACKS AND CYLINDER 313, TRACK O 
4589 te 10 AGREED WITH BAD SECTOR I NE ORMAT ION. ISSUE A WRITE DATA 
4EB9 :# OF ONE SECTOR ON CYLINDER 3le, K 0. READ fr BACK TO 
4320 ii MAKE SURE IT AGREES WITH WHA "ng ART EN. 
4592 oe SELLA E RAE SSAERA LALA LEELA LER L SASL AA REA AERA RARE AA ELA ASL ALALEAARLAE 
4593 011752 oO00004 +5130: SCOPE 
4594 011754 012737 o00062 o012b2 MOV #50. , STIMES -D0 SO. ITERATIONS 
4595 11762 012737 O00312 001664 MOV #312’ REFMT eer T REFORMAT SWITCH 
4596 011770 104416 TSSINIT : CLEAR SUBSYSTEM 
4837 011772 104003 ERROR 3 ‘BAD INIT ERROR 
4599 011774 012737 000312 o1202e MOV #312,7$ :PRESET CYL POINTER 
4600 O12002 105037 Oi2021 CLRB eS CLEAR TRACK POINTER 
4602 O12006 004437 034574 1S: ISR R4, LRLOAD ;LOAD “L" REG 
4603 Ole0l2 000127 - WRHEAD *WRITE HEADER 
4604 012014 177676 -102 ; WORD COUNT FOR 26 SECTOR MODE 
4605 012016 O62604 OBUFF F ADDRESS 
4606 O1 000 “BYTE 0 ISECTOR 
4607 O12021 000 2s: “BYTE 0 : TRACK 





RKE11 FUNCTIONAL TROL IAGNOSTIC 
SRA SES 
4608 Ci2022 000312 
S iscey gouge rr 
3) 
“613 012032 104417 
14 Ql 1 
of ae 
4617 O12040 104421 
aes Ol204e 104004 
4“6e0 012044 022737 000313 Ol202e 
4“6el J1e0S2 001414 
462c picns 1e37e7 Ole021 o0000e 
4“6e3 Ole06e 001403 
46e4 012064 105237 012021 
4“6eS 012070 000746 
ueo? O1207e 105037 012021 
4628 012076 005e37 Oledee 
4629 Olelde 000741 
4631 plein 37 034574 
Se Hel ie 
4634 O12114 062604 
4635 Ol 116 O01 
Se HELL oat 
4638 
So Be psy our 
SH Reis Hee 
“642 Olel3e 012737 O12140 001110 
4643 012140 104417 
4644 Olel4¥e 104431 
i Olel44 104002 
4647 Ol2146 104421 
“eas Cle1S0 104004 
4650 Ol2152 OO04437 034574 
4651 Ole1S6 000121 
465e Olel60 177400 
ates Bigibe 060604 
4654 Ole164 Ole 
4655 012165 000 
4656 Olel66 000312 
es 12170 104417 
4659 Bisize 104424 
MeL 012174 104002 
4“66e 012176 104421 
4662 O01 104 


7$: 


3$: 


Yll OF AEGDED ORE RET n ie PAGE 88 


312 


1260 
TLOADRK 
ERROR 2 


TCHKOP 


R4, GENCOM 


ERROR 4; OR S,6,7 
CMP #313,7$ 
BEQ 3$ 
CMPB 2$, #2 
BEQ 8s 
INCB es 
BR 1$ 
CLRB 2s 
INC 7$ 
1$ 
JSR R4, LRLOAD 
TA 
2 
3l2 
~ R4Y, GENCOM 
400 
~~ #4$, SLPERR 
TWATI12 
ERROR 
TCHKOP 
ERROR 4; OR 5,6,7 
JSR R4, LRLOAD 
RDDATA 
-400 
IBUFF 
-BYTE ile 
3l2 
TLOADRK 
TWAT32 
ERROR 2 
TCHKOP 
ERROR 4; OR S,6,7 


SEG 0088 
; CYLINDER 


;BUILD HORS-INCLUDE BAD SECTORS 


reowtre 
it6 oon NOY ERNE ETE ERROR 
5 CHECK | FOR ANY ERRORS 
;REPORT ALL ERRORS 

; TEST IF DONE 313 TK 0 

:YES - SKIP 

:DID WE JUST FORMAT TRACK 2 
: YES-SKIP 


;BUMP TO NEXT TRACK 
GO FORMAT NEXT TRACK 


;CLEAR TRACK POINTER 


:BUMP CYL TO 313 
GO FORMAT 313 TK O 


Lo “L” REGS 

iste Eee TOR WORD COUNT 

ADDRESS 

SECTOR le 

; TRACK _O 

;CYLINDER 312 

; BUILD TA PATTERN 1 
;400 LONG 

:SET ‘-: LOCAL LOOP 

:LOAD RK REGS 

“WAIT FOR INTERRUPT 

*TO SLOW/NOT COMPLETE ERROR 


;CHECK FOR ANY ERRORS 
;REPORT ALL ERRORS 


;LOAD “L” REGS 
;READ DATA 
:400 WORDS 
;BUFF ADD 
; SECTOR le 
; TRACK 0 
CYL 312 
TAIT FO FOR INTERRUPT 
TO SLOW/NOT COMPLETE 


;CHECK FOR ANY ERRORS 
;REPORT ALL ERRORS 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC 
DZREK 


C.Pil 01-OCT-76 1 


Ptatutatatatatata 
BISA ZINAS 


See RRERERS 


Rata 
Bes 


4693 


Ole2e0e 004437 


: 
S 


23 § 
Bi 


fe 


Ee 
turer 


Be SOSSSRR BR 
3 


epece 00 C0ODO C000 OO00000 O00 OO 
pee ee or one a ed nd a wed ed ed ed ed ed ed ed nd ee dt 


e3le OO00016 
2314 000400 
2316 104417 
e3e0 104430 
e3ee 104002 
2324 104421 
e326 104004 
2330 004437 
e334 000121 
2336 177400 
2340 060604 


13:08 


040776 


001634 


040776 


001664 


000062 


034574 


o407%6 


034574 


00ie6e 


001610 


SEG 0089 


LO? 
WACYLL 274006) 05-OCT-76 08:47 PAGE €9 


JSR R4, GENCOM 
Noo a Lace TO PATTERN 1 
URN-NO DATA ERRORS 


ERROR 15 ;ERROR RETURN 
MOV ERRLMT, RO ;GET ERROR LIMIT 
S$: DEC RO DEC LIMIT 
Q 6$ ;EXIT IF 0 
SR R4, GENCOM 
040000 ;CONTINUE COMPARE 
BR 6$ sEXIT IF NO MORE ERRORS 


EL Se REPORT MISCOMPARE 
6S: CLR REFMT :CLEAR REFORMAT SWITCH 


5 SRE EERIE HEE AR EAE HEHE HEHE EE AE EE ERE E EERE EERE EE EEE EERE LEE 
T 31 WRITE DATA WITH BUS ADDRESS INCREMENT INHIBIT 


ISSUE A WRITE DATA OF ONE SECTOR TO CYLINDER 312, 
TRACK 2, SECTOR “ WITH INHIBIT 
AD DATA BACK To MAKE SURE 
BODRESS INCREMENT Ne’ SERE CAND CORRECT 
+ EHKASRAAA KLE REAL RAL E AERA LARA A RELA RAE AA ALAA RELA AA LHA RL LALA HAAR LE 
+4731: SCOPE 
MOV #50. ,STIMES ::D0 SO. ITERATIONS 


TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 


oe Me oie Me aC Be Bee 
pa 


‘BAD INIT ERROR 

ISR R4, LRLOAD sLOAD “L” REGS 
WRDATA : WRDAT: 
-400 5-400 WORDS 
OBUFF IS BUFF ADDRESS 
: BYTE 12 ECTOR 12 
.BYT l 3 
312 ‘CYLINDER 312 

#BAI,L.CS2 NT INHIBIT 
i R4, GENCOM Bieertee 
TLOADRK sLOAD RK REGS 
TWAT96 ‘WAIT FOR INTERRUPT 
ERROR 2 :TQ SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5S, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, LRLOAD ;LOAD “L” REGS 
RDDATA ;RODATA 
-400 400 WORDS 
IBUFF : TBUFF IS BUFF ADDRESS 


1 FUNCTIONAL 
SoREKC Fi 11 01 
4720 012342 


HORE 
47 


4724 012346 


ve Hee 


M0? 
ee aioe MONOSTIC ETT) ETRE barb ulfn Gus AOGAESS INCREMENT INHIBIT a 


012700 000377 


004437 040776 


1 
013700 001634 
005300 


004437 040776 
0000 


000004 

012737 O00062 001262 
000001 

032737 000002 001656 


001656 


-BYTE 12 ;SECTOR 12 
3le :TRAGK 312 
MOV #377,R0 ;SET COUNT TO SET OBUFF TO BE 
HOV sOBLEr +e R1 ‘ALL THE FIRST WORD OF PATTERN 
#OBUFF ,R3 
1S: MOV £R3), (RL)+ sMOV THE WORD 
BE 1 ;LOOP UNTIL ALL WORDS SET 
TLOADRK ;LOAD RK REGS 
TWAT32 *WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, GENCOM ;COMPARE THE DATA 
100000 
400 
BR 2 
ERROR 15 
MOV ERRLMT,RO :GET ERROR LIMIT 
64S: DEC RO ; DECRENENT COUNT 
BEQ 65$ IF ZERO - EXIT 
ISR R4, GENCOM CONTINUE DATA COMPARE 
BR 7 65$ ;NO MORE ERRORS - EXIT 
ERROR 16 ‘REPORT NEXT ERROR 
ia BR 64S LOOP 


5 Re ner a reer ree 
;#TE WRITE DATA ADDRESS GREATER THAN 32K 


, ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 177770. 
ii MAKE SURE CORRECT DATA IS ON DISK. 
te NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32k 
ji OF MEMORY IS PRESENT 
(oR et RL ERATOR ds i oicaen EATEN 
'$T32: SCOPE 

MOV #50. ,STIMES ;:D0 50. ITERATIONS 

CMPB  $MAMSI, #1 TEST >32K MEM 

BGE 2  VES-SK iP 


BIT #MEMSZB , OPTFLG TEST IF REPORT ALREADY MADE 
BNE 1$ ;YES -SKIP 


,OPROL1 "INSUFFICIENT MEMORY DATA TRANSFER WITH 
OPROL2 ‘ADDRESS > 32K 
BIS kMEMSZ28,OPTFLG ;SET FLAG 


a ee ee ee 


RKEI1 FUNCTIONAL CONTROLLER DIAGNOSTIC 
DZREKC. 01-OCT-76 13: 
4 12510 104401 050570 
ar? si 0004 1S: 
12616 012737 012524 O01110 26: 

Weg BiSeS4 104MIE 

4781 O1eSe6 104003 

4783 012530 OON437 034574 
4784 012534 000123 

4785 Ole536 177400 

4786 012540 177770 

4787 Olesd2 O16 

y7e8 012543 __000 

4783 012544 900312 

4790 012546 004437 O40776 
4761 Ole5S2 010010 

4792 012554 001777 

4733 012556 00400 

W795 012560 104417 

479% Ole562 104430 

479? Ole564 104002 

4793 012566 104421 

ygo0 912570 104004 

4801 Ole572 104415 

4e03 012574 004437 040776 
4B04 012600 002007 

W805 Ole602 001000 

4807 012604 004437 034574 
4g08 Ole610 000121 : 
4803 Oleble 177400 

4810 Ole614 060604 

4811 Qle6l6 O16 

4Bl2 Ole617 __000 

4813 Ole620 000312 

4w8i4 Qlebe2 104417 

4815 Olebe4 104424 

4816 Ole6e6 104002 

4817 Oleb30 10421 

419 DIS 004437 040776 
4820 biseag 110000 

Weel Olgeye 001777 

yB22 O1e64et 0004 

Wes Oleb¥e 00041 

4824 Ol2e6S0: 10401 

W825 Olee52 013700 001634 
B26 O1e656 005 64S: 
4827 012660 001406 

WBe8 Olebbe 004437 040776 
429 O1ebee 

4830 O1e670 000402 

4831 Oleeze : 104016 


es CA il THAN 22K 


; BYPASSED” 
SET LOCAL LOOP ON ERROR ADDRESS 


TYPE OPROIS 
BR 4 

MOV #5$, SLPERR 
TSSINIT 

ERROR 3 


JSR R4, LRLOAD 


JSR R4, GENCOM 
JSR R4, LRLOAD 


-BYTE 16 
, 0 


ERROR 4 
RY, GENCOM 


4$ 
15 

MOV ERRLMT, RO 
RO 


65$ 
JSR R4, GENCOM 


6S$ 
ERROR 16 


;0R 5S, 6, 7, 


SEG 0091 


;CLEAR SUBSYSTEM 
BAD INIT ERROR 


tURITE. bata 


400 WORDS 
‘aus i IN 32K -10 BYTES 
;SECTOR 1 


o° 
RO? Bi 
;PATTERN 10, MEM. + asmasinatid FOR DEST. 
;RELOCATION’ ARGUMENT 


;LOAD RK REGS 

WAIT FOR INTERRUPT 

:TO SLOW/NOT COMPLETE ERROR 
*CHECK OPERATION FOR ANY ERRORS 


, 10 ;REPORT ALL ERRORS 


sLOCAL LOOP ON ERROR TO S$ 


;CLEAR IBUFF TO 1’S. 


;LOAD “L” REGS 


ATA 


37400 WORDS 
; BUFF IS BUFF ADDRESS 
j SECTOR 16 


; CYLINDER 312 
LOAD RK REGS 

;WAIT FOR INTERRUPT 

TO SLOW/NOT COMPLETE ERROR 
“CHECK OPERATION FOR ANY ERRORS 


10 ;REPORT ALL ERRORS 


;CO 
:MEMORY MANAGEMENT FOR DESTINATION 
; RELOCATION ARGUMENT 
;400 WORDS 
NO ERROR-SKIP 
?REPORT FIRST MISCOMPARE 
GET ERROR LIMIT 
sDECRETENT COUNT 


; IF 0 - EX 
:CONTINUE DATA COMPARE 


;NO MORE ERRORS - EXIT 
;REPORT NEXT ERROR 





RKE11 FUNCTIONAL C cee StL ee IRIS 


. DZREKC.P 11 03-OCT-76 
012674 000770 
012676 
012676 


Srstars 
se! 


i 


NRE ERPR RGR RIN ES Cen toes caus aes 


ee: 
| gie7se 

12744 

1274s 

bisree 
| tees 
| BER glee 
Et: 
| 2 ae 
| 4875 12778 
| sa aioe 
oe eee 
| 488i 013006 
apes % 913010 
4884 013012 
| Bes eae 
| We6E 1301 
4887 013020 


00006e 
001326 


Ole72 


040776 


034574 





MACYLI 27. 0S-0CT-76 09:17 PAGE $2 3 00 
a eee bath ACORESS GREATER THON Ek — 


BR iS} Y s LOOP 
6ss$: 
4§: 
ss itesT aa, READ DATA MOORESS GREATER TAN GX 
:# T READ DATA AODRESS GREATER THAN 32k 
:# ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 177770. 
i CHECK MEMORY FOR CORRECT TRANSFER. 
14 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K 
i OF MEMORY IS PRESENT. 
ij ROR ee ag aes ny ee 
001262 MOV #50. ,STIMES -DO SO. ITERATIONS 
000601 CMP SHAMS, #1 EAE CK if »32K MEMORY 
BGE ; YES-SKIP 
1S: BR S$ EXIT 
001110 2: MOV #3$, SLPERR ;SET LOCAL ERROR LOOP 
3s: 
TSSINIT CLEAR nePSYSTE 
coe Frcs 
SR RY, LRLOAD er Be REGS 
WROATA 
-400 A ADG WORDS 
OBUFF ‘OBUFF IS _BUFF ADORESS 
BYTE 17 ;SECTOR 1 
BYTE 0 : TRACK 
312 “CYLINDER 31 
JSR RY, GENCOM ; GENERATE DA Ta IN OBUFF 
: PATTERN 
400 
TLOADRK sLOAD RK REGS 
TWAT9E tury FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;ORS, 6, 7, 10 ;REPORT ALL ERRORS 
JSR ry, CRLOAD sLOAD “L" REG 
RDDATA *READ DATA 
-400 400 WORDS 
177770 ACCROSS 32K BOUNDARY 
BYTE 17 *SECTOR 17 
Y TRACK O 
312 sCYL 3le 
TLOADRK :LOAD RK REGS 
TWAT 32 ina FOR INTERRUPT 
ERROR 2 ;10 SLOW/NOT COMPLETE ERR 


TCHK “CHECK OPERATION FOR ANY CRRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 











2 
ig 
ns 
tain 
Bo 


TAGNOSTIC MACYLi 27(1006) OS-OCT-76 09:17 PAGE 93 
733 READ DATA ADDRESS GREATER THAN 3ek 





7 : 
seis ee 004437 040776 ISR R4, GENCOM : COMPARE DATA ane anaes 
aesa reeks hg 008 ! :R Lear ION See ENt * 
dees 8}3634 BBBNTS aa TT CKONPARE EXT T 
4893 013036 104015 ERROR 15 ; T FIRST MISCOMPARE 
sez 13040 001634 v RRLMT, RO :GET TESOR LIMI 
486 31 091 ar ae 5S Pe eeee SEIT 
ie2 bi soes Sosa? 040776 J Ba GENCOM + ENF INE onTA COMPARE 
4899 013056 090402 ec 6S$ ;NO MORE ERRORS - EXIT 
4800 O01 O4016 ERROR 16 ‘REPORT NEXT ERROR 
4901 013062 haces 64S LOOP 
12 913064 &S$: 

13064 ss: 

3oo4 ss SESTSSFFSSTASSSESESASSESSLAESLESSSLARALSELELASSFLELLLSLSSSLERESLEES 
4905 iA T4 WRITE DATA ADDRESS GREATER THAN 64K 
oe :# ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 377770. 
4308 38 MAKE SURE CORRECT DATA IS ON DISK. 
ued :# NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 64K 
4311 is OF MEMORY IS PRESENT. 
aai5 oe SESFELELSSSESSRSSSSSSSELASSSESAASARELSSLALESFLERERALELELRELEARLE 
| 4514 013064 900004 tST34: SCOPE 
| 4sis 912566 012737 o00062 001262 MOV #50. .STIMES ::D0 SO. ITERATIONS 
4916 O1 ees 001326 900002 CMPB = SMAMS1, #2 :CHECK IF >64K MEMORY 
4817 0612102 OO20i6 BGE 2s : YES-SKIP 
4918 013108 032737 o00002 OO1ESE 6S: BIT SMEMSZB,OPTFLG TEST IF REPORT FLAG SET 
| 4313 Oi31i2 o01011 SNE 1s :NO-SKIP 
| 4623] 013114 104401 oOSO411 TYPE  ,OPROJI "INSUFFICIENT MEMORY-DATA XFER WITH 
| 4g32 Sizie0 104901 DS0s66 TYPE + OPROL3 :ADDRESS >64K 
Me 613130 tee737 Baptoe OO1ESé BIS Beene ,OPTFLG :SET cee 
| 4925 013136 5 1S: BR 5S 
sie? 013140 012737 013146 001110 2s: MOV #3$, SLPERR ;SET LOCAL LOOP ON ERROR 
i53 13146 3S: 

13146 104416 TSSINIT ;CLEAR SUBSYSTEM 
49831 O13150 194003 : BAD INtT ERROR 
133e 1315 37 040776 JSR R4, GENCOM : GENERA TA. PATTERN 11 
as bis But se! on mwee 
ee 013162 o00400 400 : 400 

| 4637 013164 904437 034574 JSR R¥. LRLOAD sLOAD “L" REGS 

| 463e 013170 Oogs23 WROATA! BALE "WRITE DATA AND SET BALE 
| 939 013172 177400 ~400 34 

| 4840 013174 177770 177770 “ACCROSS aphk BOUNDARY 

| O41 013176 020 “BYTE 20 SECTOR 

| 4942 013177 000 .BYTE 0 : TRACK O 

_ 4843 013200 000312 | 312 :CYLINDER 312 

§ 





DO8 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLI 27: ) OS-OCT-76 09:17 PAGE 94 
aoe RY 01-OCT-76 13:08 734 Wai TE DATA ADDRESS GREATER THAN 64K 
1 104417 TL sLOAD RK REG 
dead Bi ERS l TWAT Lone Poe ERTERRUPT 
ms a 013206 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
4949 013210 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
4950 st 3 rea ERROR 4 ;ORS, 6, 7, is EEL POR ALL ERRORS 
4951 013214 OO4437 O4077E ISR R4, SENCOM “CLEAR IBUFF TO 1’S 
4952 913220 002007 2007 
4953 013222 001000 1000 
uaee 13224 gowsa? 034574 JSR R4, LRLOAD sLOAD “L” REGS 
4358 13230 000121 RDDATA ‘ RODATA 
13232 177400 -400 :-400 WORDS 
4958 013234 O60604 IBUFF :IBUFF IS BUFF ADDRESS 
4953 013236 920 .BYTE 20 :SECTOR 20 
4960 013237 noose -BYTE 0 : TRACK 
4961 0132540 le 312 >CYLI 312 
4962 013242 104417 TL *LOAD RK REGS 
4963 013244 104454 TWAT 32 :WAIT FOR I T 
4964 013246 1040Ge ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
SEE 013250 104421 TCHKOP - CHECK TION FOR ANY ERRORS 
4967 013252 104004 ERROR 4 ;OR S, 6, 7, 10 ;REPORT ALL ERRORS 
4968 913254 004437 o40776 JSR R4, SENCOM sCHECK DATA 
4963 013260 110000 110000 :MEMORY MANAGEMENT WITH DESTINATION 
4870 013262 003777 3777 :RELOCATION ARGUMENT 
497 bizees pop409 400 ; 
4o72 13266 00041 BR or 3NO MISCOMPARES-SKIP 
4973 013270 104015 ERROR 15 :REPORT FIRST ERROR 
aeve 013272 013700 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
4976 013276 005300 64S: DEC RO *DECREMENT COUNT 
49877 013300 001406 BEQ 6S$ : IF ZERO - EXIT 
4978 013302 004437 040776 JSR R4, GENCOM :CONTINUE DATA COMPARE 
4979 013306 oSo000 50000 
4980 013310 900402 2 65$ :NO MORE ERRORS - EXIT 
4981 013312 104015 ERROR 16 :REPORT NEXT ERROR 
4985 013214 000770 SF 64S LOOP 
4983 013316 S$: 
4984 013316 cs: 
498S 5 RELRERERERERSERAEESEEESEREREEESER LER EAEERERERSRASE REESE RERE RES 
1288 j #TEST 3s READ DATA ADDRESS GREATER THAN 64K 
4988 + ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 377770. 
4929 i CHECK MEMORY FOR CORRECT TRANSFER. 
499] # NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 64K 
4992 i OF MEMORY IS PRESENT. 
4oo4 MPTETTTTTT TTT T TTT TTT TTT TTT TTT TTT TT TTT TT ttt tT Tt tit TT tt ttt tT ttt 
Woe Biaae8 Bioos 001262 1ST36s Roy #50. .STINES DO SO. ITERATIONS 
4997 bt 33sp 35939 abe o000de CMPB 43s SMAMS1, #2 :CHECK IF >64K MEMORY 
4996 013334 002001 25 : YES-SKIP 
4999 013336 O00462 1S: BR $$ EXIT 


SES 0094 


— a ro ee oe 0 re ee 


C.Pll 


oO 
arg 


BF ane 
S002 
Be Hes 
1 
8 hee 
S008 913360 
eat Bi see 
10 013364 
5011 013365 
SOle 013366 
$013 013370 
S014 013374 
$0:$ 013376 
5016 
S017 013400 
apie Bi ite 
i139 013404 
5020 
i Te 
13410 
5023 O134le 
S0e4 013416 
S0eS 013420 
5026 Oistee 
S0e7 O134e4 
50e8 013425 
5029 Ol34e6 
5030 
5031 013430 
S032 O1343e 
5033 013434 
5034 
503S 013436 
S036 013440 
5037 O1344e 
5038 O13446 
5039 013450 
S040 013452 
S041 013454 
S042 013456 
S043 : 
Se Rage 
5 HES 
S048 9013474 
S049 013476 
S050 913500 
5051 01350e 
S0S2 013504 
5053 
5054 013504 
sOoss 


01-OCT-76 1 


012737 O00032 001110 es: 


i eee 


me i 


el 


Shue Eee! 


040776 


040776 


001634 


040776 


3$: 


64S: 


65S: 
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READ DATA ree GREATER THAN 64K 


MOV 832, SLPERR ;SET LOCAL LOOP ON ERROR 
TSSINIT : ™ 
EBeOn 1 BaR a TT eneon 
ISR RY, LRLOAD LOAD me REGS 
WRDAT ;WRDATA 
-400 + =400 
:OBUFF I BUFF ADDRESS 
-BYTE 21 : SECTOR 
"BYTE : TRACK oO” 
312 :CYLINDER 312 
JSR R4, GENCOM GENERATE DATA 
12 :PATTERN 12 
400 : 
Thatoe oe FOR INTERRUPT 
ERROR 2 :TO SLOW/NO PE RNPLE TE ERROR 
TCHKOP j grec TION FOR ANY ERRORS 
ERROR :0R 5, 6, 7, | ‘ REPORT ALL ERRORS 
JSR R4, CRLOAD 
RODATA! BAILS ‘READ DATA AND SET BALE 
-400 400 WORDS 
177770 "ACCROSS 64K BOUNDARY 
-BYTE 21 :FROM SECTOR 21 
"BYTE O TRACK O 
312 :CYLINDER 312 
TL sLOAD RK REGS 
TWAT 32 *WAIT FOR INTERRUPT 
ERROR TO SLOW/NOT COMPLETE ERROR 
TCHKOP *CHECK OPERATION FOR ANY ERRORS 
ERROR 4 -ORS, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, GENCOM “ CORPERE DA 
120000 :MEM MANAGEMENT WITH SOURCE 
a7? * RELOCATION 
BR cs *NO MISCOMPARES-SKIP 
ERROR 15 ‘REPORT FIRST ERROR 
MOV ERRLMT, RO I aE REOR LIMIT 
FS fg iDE OTERO TE 
JSR RY, GENCOM : CONTINUE “pata COMPARE 
_ 65$ ;NO MORE ERRORS - EXIT 
ERROR 16 ;REPORT NEXT ERROR 
aR 64S : LOOP 


& 


cs: } 
5s RERREEREREAR ERE RESREAE ER ARE REAR ALE RERELEEAERAEAEAEERERERRERE RS 


SEG 0095 





: 


BS 


jon | oe) oe | oe | oe] 
= 0 bp 
Be 
~ 
Siete 
o 


oO000 
be 


ae HAI HRI 


23 


i 


: 
4 


8 
be 
e- 
at) 
Ww 


Bag 


8 


SRR 
T£O 
= 
8 
im) 


SOSE 
5057 
50ee 
5055 
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;#TEST 36 WRITE DATA ADDRESS GREATER THAN 96K 


ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = $77770. 
MAKE SURE CORRECT DATA IS ON DISK. 


NOTE: He i oe Y DECUTED IF MORE THAN 96K 
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té736 
#50. ,STIMES : D0 50, ITERATIONS 
1,83 :CHECK IF >96K MEMORY 


:YE cE P 
18: BIT #MEMSZB,OPTFLG ;TEST IF REPORT FLAG SET 
BNE es ;NO-SKIP 


TYPE  ,OPRO11 "INSUFFICIENT MEMORY-DATA TRANSFET WITH 
TYPE {OPROIY ADDRESS >96K BYPASSED” 
TYPE OPROIS 
BIS kMEMSZ2B,OPTFLG ;SET REPORT FLAG 
es: BR oes 
38: MOV #4$, SLPERR ;SET LOCAL LOOP ON ERROR 
“es 
TSSINIT :CLEAR SUBSYSTEM 
E ; BAD INIT ERROR 
JSR R4, LRLOAD LOAD “L” REG 
WROATA! BAL? RITE DATA AND BAI7 
-400 : 400 
1 *ACCROSS 96K BOUNDARY 
BYTE 22 :T0 SECTOR 22 
BYTE O tT 
718 Ru GENCON i GeneRaTe Sat 
10013 SERN” orem Man WITH DEST. 
5777 *RELOCATION ARGUMENT 
400 400 WORDS 
TLOADRK sLOAD RK REGS 
TWATSE sWATT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, LRLOAD 31.080 "L” REGS 
RDDATA ATA 
-400 -400 WORDS 
IBUFF =e IS BUFF ADDRESS 
“BYTE 22 :SECTOR 22 
“BYTE OO TRACK O 
312 :CYLINDER 312 


OADRK ;LOAD RK REGS 
TWAT32 ;WAIT FOR INTERRUPT 


2 
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WRITE DATA ADDRESS GREA ip THAN 96K 
ERROR 2 "  sT0 SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
ISR R4, GENCOM ;COMPARE DATA 
110000 :MEM MANAGEMENT WITH DESTINATION 
5777 :RELOCATION ARGUMENT 
400 5400 WORDS 
BR 6$ MTSCOMPARES-BRANCH 
ERROR 15 + REPORT 1ST ERROR 
MOV ERRLMT, RO :GET ERROR LIMIT 
B4S$: DEC RO ; DECRENENT COUNT 
BEG 6S$ IF ZERO - EXIT 
ISR R4, GENCOM :CONTINUE DATA COMPARE 
BR 65S ;NO MORE ERRORS - EXIT 
ERROR 16 :REPORT NEXT ERROR 
BR 64S :LOOP 


65S: 


$: 
= SELSSESREKARESSSHKRA LEAS RERA AER AESEAAELARERERALERAEREELLAAELEKES 
‘kTEST 37 READ DATA ADDRESS GREATER THAN 96K 


6 
te 
i* ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 577770. 
i CHECK MEMORY FOR CORRECT TRANSFER. 
# NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 96K 
i OF MEMORY IS PRESENT 
i 2 Repieercrecmae ye seeenarenmmana te ere 
MOV #50. .STIMES ;:D0 SO. ITERATIONS 
c SMAMS1, #3 Gx CK K I >96K MEMORY 
BGE 3$ 
es: BR cs 
3 MOV #4, SLPERR :SET LOCAL LOOP ON ERROR 
4S: 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
ISR R4, LRLOAD ;LOAD “L” REGS 
WROATA ; HROAT A 
-400 :=400 WORDS 
OBUFF ; OBUFF IS BUFF ADDRESS 
-BYTE 5 ;SECTOR § 
“BYTE O : TRACK O 
312 *CYLINDER 312 
JSR R4, GENCOM :GENERATE DATA 
14 ; PATTERN 14 
*400 WORDS 
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HAIL FOR IMTERRUPT ean 


HE TION FOR ANY ERRORS 
4 ;0RS, 6, 7, 1 ib ieee a Dep SEs 
JSR RY, CRLOAD 
RODATA!BAL? ie DATA rit BAI? SET 
177770 pie 96K BOUNDARY 
BYTE “FROM SECTOR S 
"BYTE 0 :T 6 
312 :CYL 312 
TLOADRK sLOAD RK REGS 
TWAT 32 SWAT FOR INTERRUPT 
ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
ISR R4, GENCOM :COMPARE DAT ot tates ene 
459900 RELOCATION BRGUNENT 
400 :400 WORDS 
BR 6 ;NO_MISCOMPARES-SKIP 
RROR 1 :REPORT FIRST 
MOV ERRLMT,RO :GET ERROR LIMIT 
64$: DEC RO :DECREMENT COUNT 
BEQ 65S :IF ZERO - EXIT 
ISR R4, GENCOM :CONTINUE DATA COMPARE 
BR &S$ :NO MORE ERRORS - EXIT 
ERROR 16 :REPORT NEXT ERROR 
4§ LOOP 
65S: 
6S: 
: i a eatin eee a ee 
ihr T 40 PARTIAL SECTOR WRITE DATA 
- ISSUE A WRIT DATA WORDS TO CYLINDER 312, 
'S BEaE ETERS de ETS 
ven tii 


oye 2° apepuadecee gmeessens omens crane geammapicageis cteencq rai: 


-, STIMES 
TSSINT | 


JSR R4, LRLOAD 
WRDATA 


DO 50. ITERATIONS 


GSP BeRaR” 


i CBUNT T PARTIAL SECTOR 
SEO TOR ‘y 


SEG 
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034574 


063012 
000275 
040776 


001634 


040776 


1$: 


es: 


BYTE 0 ; TRACK 0 

3le ;CYLINDER 312 

JSR R4, GENCOM ;GENERATE DATA 

3 :PATTERN 3 

400 3400 WORDS 

TLOADRK Looe Bx EGS 

TWATS6 : WAI FOR’ INTERRUPT 

ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK_FOR ANY ERROR 


ERROR 4 ; OR 5,6,7 REPORT ALL ERROR 


JSR R4, LRLOAD ;LOAD “L” REGS 
RDDATA ;READ DATA 

-400 “ONE FULL SECTOR 

IBUFF + BUFF 

-BYTE 7 :SECTOR 7 

-BYTE 0 - TRACK 0 

312 sCYLINDER 312 

JSR R4, GENCOM 

e0g7 :CLEAR IBUFF TO ALL ONES 
TLOADRK -LOAD RK REGS 

TWAT32 att FOR INTERRUPT 

ERROR 2 0 SLOW/NOT COMPLETE 
TCHKOP snare FOR ANY ERRORS 
ERROR 4; 0R5,6,7 REPORT ALL ERRORS 

MOV #OBUFF+206,R1  ;CLEAR THE LAST 205 WORDS 
MOV #275,R0 -OF THE OUTPUT BUFFER TO ZERO 
CLR (R1)+ :TO VERIFY THE PARTIAL SECTOR 
DEC Ro *WRITE O FILLED THE SECTOR 
ISR R4, GENCOM 

100000 ; COMPARE OBUFE & IBUFF. 

400 *ALL 4OO W 

BR 3$ :NO ERRORS oR ri 

ERROR 15 "REPORT FIRST COMPARE ERROR 
MOV ERRLMT, RO ;GET ERROR LIMIT 

DEC RO *DECREMENT IT 

BEG 3$ IF ZERO-EXIT 

JSR R4, GENCOM 

40000 ; CONTINUE COMPARE 

BF 3$ *NO MORE ERRORS-EXIT 

ERROR 16 ?REPORT NEXT COMPARE ERROR 
GR 2s *LOOP 


3$: 
5 5 REAR ERRR AER ERERE ERE EE EE EEK EEE E RE REE REAR ERE R EE EE RARER RED ERE 
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5280 ;#TEST 41 PARTIAL SECTOR READ DATA 
Hed 

5282 i WRITE CYLI CYLINDER 312, TRACK 0, SECTOR Ra gitTH A 

ees i igs wf 16 cy iihoee 3 ai, ThibkB, “BECTOR 0. 

seat + TO ReRORY 

cies } = SELSSAAALSA SERA LE RE RAE AA REL ARR RARE LARAERAS EAL HALE REL EAA REEL ALFES 

5299 914306 oo00004 téTu1: Sc 

5290 014310 O12737 o0006e O01262 MOV #50. ,STIMES ;:D0 50. ITERATIONS 

5291 O14316 104416 TSSINIT AL EAR SUBSYSTEM 

5292 014320 104003 ERROR 3 *BAD INIT ERROR 

25d¢ 014322 004437 034574 ISR R4, LRLOAD ;LOAD “L” REGS 

S295 014326 o9g123 WRDATA swapaTE 

529 014330 1 -400 490 WORDS . 

5297 014332 062604 OBUFF * OBUFF IS. BUFF ADDRESS 

5298 014334 017 -BYTE 17 ; SEC TOR 1 

5299 014335 000 "BYTE O : TRACK - 

5300 014336 000312 312 :CYLINDER 312 

5301 014340 004437 040776 ISR R4, GENCOM ; GENERATE DATA 

E202 014344 o00004 4 TTERN 4 

2303 014346 o00400 400 ‘foo WORDS 

5305 014350 104417 TLOADRK ;LOAD RK REGS 

5306 014352 104430 TWATS6 ;MAIT FOR INTERRUPT 

5307 014354 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 

2306 ape 014356 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 

2210 014360 104004 ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 

E3i2 014362 034574 JSR R4, LRLOAD sLOAD “L” REGS 

5213 014366 000121 RDDATA : RODAT 

£314 014370 1776 -103 *=103 WORDS 

53iS 014372 O60604 IBUFF *IBUFF IS BUFF ADDRESS 

S316 014374 017 -BYTE 17 SECTOR 17 

5317 014375 600 "BYTE O TRACK O 

5318 014376 o00312 312 *CYLINDER 312 

5319 O14400 004437 040776 ISR R4, GENCOM 

5320 014404 ? sCLEAR IBUFF 

eel 014406 900400 400 

5323 O14410 104417 TLOADRK sLOAD RK REGS 

5324 014412 104424 TWAT32 itait FOR INTERRUPT 

325 O14414 104002 ERROR 2 50 SLOW/NOT COMPLETE ERRO 

5226 144 1Oadet TCHK igeck RATION FOR ANY CRRORS 
14420 1 ERR 4 ;0ORS, 6, 7, PORT ALL ERRORS 

2356 014422 012700 063012 MOV #OBUFF+206,RO  ;AFTER THE LAST 205 WORDS OF 

3 14426 bte70 0275 MOV #275,R1 ?THE OUTPUT BUFFER TO ALL ONES. 

£331 014432 O1 erates 1S: MOV #-1, (RO)+ ; THESE SHOULD ALL 3 aghes IN 

53232 014436 005301 DEC BUFF BECAUSE THE PARTIAL 

b233 or Haag 001374 BNE 1$ *READ FILLED ONLY 103 WORDS. 
14442 004437 040776 ISR R4, GENCOM :GO COMPARE IBUFF & OBUFF 


5 Pee 2 FUNG TIONAL SQN TRDL LER. pinaestee FG 
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5369 014532 000312 
5370 
5371 O14534 104417 
S372 014536 104430 
5373 O1454O 104002 
5374 014542 104422 
£305 014550 000040 
Cie oe wx 
5380 01 Ot 3 047276 ; 
it he 11 001541 
5384 bisehs 001 
5385 Biuebe Bi0037 001204 
5386 Ol46le 012737 001202 
5387 yttasy 104010 
5388 01 Qee737 176002 O01544 
5389 014630 00141 
5390 O01463e 012737 052734 001450 
$391 O14640 012737 176002 


eee — siecle’ ~ 


5 er ino) ee te PAGE 101 


400 ;ALL 400 WORDS 


R : -ExI 
Reon fe HO RRR ORTRET Compare ERROR 
- MOV ERRLIT RO sGET ERROR LIMIT 
* BECO DECRERENT Egy? 
SR R4, GENCOM ‘CONTINUE DATA COMPARE 
BR S$ :NO MORE ERRORS - EXIT 
ERROR 16 *REPORT NEXT ERROR 
BR 64S :LOOP 
6S$: 
HEHE HHH H HHH HEE HHH GHEE HEHEHE GHEE HEHEHE HEE 
jATEST 42 WRITE DATA WITH NON-EXISTENT MEMORY 
1H Issue A WRITE DATA OF 1 WORD USING ADDRESS 776000. 
ii SURE NON-EXISTENT MEMORY SETS. 
i ee: a ee ea 
MOV #50. ,STIMES ;:D0 SO. ITERATIONS 
TSSINIT ‘CLEAR SUBSYSTEM 
ERROR 3 *BAD INIT ERROR 
JSR sLOAD “L” REG 
BAle!BAL7#UROATA *BAI6 & 17 SET WITH WRITE DATA 
s HORD COUNT OF 1 
176000 ?BUFF ADDRESS=I0 PAGE BASE 
-BYTE 13 :SECT 13 
"BYTE 0 : TRACK 0 
312 :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWATSE ‘WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKWE *CHECK OPERATION WITH ERROR 
0 
NE ;NON-EXISTENT MEMORY ERROR 
RU SeAMG Exon Sete Ete neteaee 
MOV SOPERYE  DFOIOA s1TH SUBECRT SSAGE 
NOV T-CS1+1, RO UPPER cs 
ere 4725 t i Tab Bore R BUS BITS SET 
MOV RO, SREG11 ice UP FOR ERROR REPORT 
MOV #3, SREGIO 
1S: CMP #176002,T.BA =; TEST IF Buss ADDRESS LOW OKAY 


BE 
MOV #£M11,EM1ON ISET UP NESSGAE 
MOV #176002,$REG10 ;STORE VALUE FOR REPORT 


SEG 019: 
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es 013737 OO01S44 001204 


19 

ee OINESE ae o01s4e 
Diséed BI z 901450 

233g ot poste H01S42 001204 

5400 14704 1oa0i0 

S402 014706 

5403 

O4 

405 

eyo 

5408 

5409 

419 

411 O14 


014722 004437 034574 


~ 
a 
> 
fu 

iS: 


S428 014 000000 

S429 te S 000000 

dsl Oluree 1oMoo4 

S432 014760 012737 052762 001450 
33 014766 012737 04735e 057662 
S434 Renn 113700 ae 
e301 000063 

euae EME Ole737 Sele 001202 
4 1 1 1204 

Bat 0150e4% 104010 

S442 015026 022737 176002 44 
Euug 015034 O0141e ‘ — 
5 BeDaS B5737 176002 bolzoe 
S446 015052 013737 001544 001204 
S447 015060 104010 


LO8 
Wag “elie bath wlth Bil Sel “Sy ote 


MOV T.BA, SREG11 


ERROR 10 

2s: Is! - T.Wc sTEST_ IF WORD COUNT CORRECT 
Q SKIP 

MOV sen10 EMLON :SET UP MESSAGE 

oe 

ERROR 10 
3$: 
8 ee eaD DATA WITH NON-EXISTENT MEMORY 
j TE READ DATA WITH NON-EXISTENT MEMORY 


te ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000. 
;# MAKE SURE NON-EXISTENT MEMORY SETS. 


-% 
aa peau emammummna ammrermememmememnnn ett 
, #50. , STIMES -D0 50. ITERATIONS 


TSSINIT AL EAR AR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
JSR R4, LRLOAD sLOAD “L” REG 
BAl6!8A17!RODATR :BAIG & 17 WITH READ DATA 
176000 *BUFF ADDRESS=I0 PAGE BASE 
“BYTE 13 SECTOR 13 
"BYTE 0 :T 0 
312 CYL 312 
TLOADRK sLOAD RK REGS 
TWATS6 ;WAIT FOR INTERRUPT 
ERROR 2 *TO SLOW/NOT COMPLET E ERROR 
TCHKWE :CHECK OPERATION WITH ERRORS 
0 
NEMERR erat TENT MEMORY ERROR 
ERROR 4; OR S.6,7 BLL DISCREPANCIES 
MOV #£M11A, EMLON 
MOV #0PER43, DFOLOA iE SUPPORT MES 
MOVB 1.CS1+1°RO UPPER cs 
BIC #177774, RO ; CLEAR TED BITS 
CHP #3, RO sTEST OTH 16 8 17 SET 
MOV #3, SREGIO CET VALUES FOR REPORT 
MOV RO; S$REG11 
ERROR 10 

1S: CMP #176002,7.BA ES TE BUS ADDRESS CORRECT 


BEQ 
MOV #£M11,EM1ON SSAGE 
MOV #1 76002, $REGIO SET VALUES FOR REPORT 


MO8 
BALCH BCAA PR le RP sa 010 


ewes 015062 o01s4e 2s: TS T We TEST TE ORD COUNT CORRECT 
ede? Bt Epes Polsls 052707 001450 V Baio EM1ON i thy 

suS2 015076 005037 001202 CLR SREGIO -SET VALUES 

453 015108 013737 O01S542 001204 MOV T.WC, SREGI1 

434 15116 104010 ERROR 10 

pipe 015112 3S: 

S4SB8 : et me ae Renee Ee er 
ete ; ATES UNIBUS PARITY ERROR 

5461 + INITIALIZE A MEMORY LOCATION WITH BAD 

5462 # ARITY ISSUE A WRITE DATA OF 400 WORDS 

S463 * CP RATING 2 A LOCATION 110 WORDS BEFORE 

S4e4 + THE TER TON WITH BAD PARITY. MAKE SURE 

pues ii THAT UNIBUS PARITY ERROR SETS. 

S467 :# NOTE: THIS TEST IS ONLY EXECUTED IF 

c468 t* MEMORY PARITY OPTION EXISTS FOR 

2uS8 * UFFER. 

5471 } = RELA KAELEA ALAA SRE A SERA R HLA A LRA LARA SALA KEL EKARERA LALA KERALA EESEEE 
547 DIS112 oo0004 +éTuy: SCOPE 

54 15114 012737 00062 O0l1262 MOV #50. ,STIMES ;:D0 50. ITERATIONS 

S474 O15122 104416 TSSINIT :CLEAR SUBSYSTEM 

e176 015124 104003 ERROR 3 :BAD INIT ERROR 

5477 015126 032737 OO00200 oD1ESs6 BIT #PARBKO,OPTFLG ;TEST IF PARITY OPTION PRESENT 
5478 015134 001013 BNE 1$ * YES-SK 

5479 015136 032737 OO0004 O016S6 BIT #MEMPYB,OPTFLG ;TEST IF PARITY OPTION REPORTED 
5480 015144 901005 BNE 25$ *NO-SKIP TO EXIT 

5481 015146 104401 os0257 TYPE OPRO10 :PRINT BYPASS MESSAGE 

Suge 015152 052737 OO0004 on1Ess BIS inenPvE, OPTFLG ;SET OPTION REPORTED BIT 

eig3 015160 000137 015572 25$:  JMP :SKIP TO EXIT 

S4es 015164 1$: 

S486 015164 004437 034574 JSR R4, LRLOAD ;LOAD "L™ REGS 

S487 015170 o00123 WRDATA j WROATA 

s4ee 015172 177400 -400 400 WORDS 

5489 015174 OBUFF ‘OBUFF IS BUFF ADDRESS 

eur preize ae ‘BYIE OF s SECTOR 10 

Ege piesa poo 312 :CYLINDER 312 

5494 015202 005077 164474 CLR JMMCSR1 ;CLEAR PARITY IE 

S495 015206 032737 OO0100 o0l6s6 BIT #PARBK1,OPTFLG ;IS BANK 1 AVAIL 

E496 015214 o0140e BEQ 3$ *NO = SKIP 

e137 015216 005077 164462 CLR SMMCSR2 ;CLEAR IE FOR BANKI 

5499 015222 004437 040776 38: ISR R4, GENCOM ;GENERATE DATA 

£500 015226 o00005 c *PATTERN 5 

5501 015230 000400 400 :400 WORDS 

5502 015232 012746 o00340 MOV #PR7,-(SP) :PUT PRIORITY 7 ON STACK 


NO8 
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S504 015236 O12746 015244 MOV #10$,-(SP) ;PUT ADDRESS ON STACK 
5Sos g1se4e ooo002 neg RTI SET PRI 

ee g1se¥4 032737 000100 OO16S6 eI #PARBK 1,0PTFLG ;TEST iF PARITY BANK 1 AVAIL 

6510 015254 nieneas o00004 164422 MOV #81T2, INMCSR2 ISET WRITE WRONG PARITY ENABLE 

pei g15eb2 12777 900003 Loavle 4g: HOV W811 onncSRI -is6) WRITE WRONG PARITY BIT 

Bets if op pisses 063030 pe303? MOV SOBUF F+ 58 SEUF Feeee “WRITE ALL ONES INTO BUFFER W/BAD PARITY 
5514 015304 012777 OO0001 164370 MOV #BITO,aMMCSRI ;C AR CONTROL BIT, SET IE BIT 

eei8 015312 032737 000100 OO1656 I SEARBK1 , OPTFLG ite en F BANK 1 AVAIL 

B17 015322 012777 o00001 164354 MOV #BITO,QMMCSR2 CLEAR CONTROL BIT, SET IE 

5519 015330 013746 O01622 SS: MOV RKPRI, -(SP) ;SET OLD PRIORITY 

6520 015334 012746 oO1S34e MOV #11$,-(SP) :SET ADDRESS 

6521 015340 o00002 RTI RESTORE PRI 

5522 015342 118: 

2esq sr 015342 104417 TLOADRK sLOAD RK REGS 

Bese biesue {oucee ERROR’ 2 {LA 

5527 015350 005077 164326 CLR SMMCSR1 : TURN OFF CSI 

bec g15354 032737 000100 o016Se BIT SPARBKL, , OPTFLC TEST IF BANK 1 PARITY PRESENT 

5530 Biese ae8 005077 164314 CLR IMMCSR2 ; TUR: OF BANK 1 

5531 015370 005037 063030 6S: CLR OBUFF +2 

bose 015374 005037 063026 CLR OBUFF +222 ;CLEAR BAD PARITY ERROR 

bead 015400 004737 033704 JSR PC, OPTTST RESET OPTIONS 

B56 15404 104422 TCHKWE ;CHECK OPERATION WITH ERROR 

6538 oO15410 ane 0 

e233 015412 000100 UPERR ;UNIBUS PARITY ERROR 

eet 015414 104004 ERROR 4; OR S,6,7 REPORT ALL DISCREPANCIES 

SS42 015416 012737 O4742S5 “OS7b62 MOV OPERsH DFO10A ;SET MESSAGES FOR REPORT 

S543 015424 012737 052734 OO14S0 MOV a 10N 

5544 015432 023727 OO1S44 063030 CMP T.BA A ROBUPF+224 ; ;CHECK IF BA IN RANGE 

554s g1H40 10301 BHIS 14S ‘NOT TO LOW - SKIP 

cou O15442 012737 063032 oo1e02 MOV #OBUFF+226,$REG10 ;SET VALUES FOR REPORT 

5547 O154SO 013737 O01544 OO01204 MOV T.BA, SREGIL 

cS48 O1s456 104010 ERROR 10 

B83 015 13 BR 16$ 

S551 os 023727 OO01S44 063034 14S: CMP T.BA, 8OBUFF+230 ;CHECK IF BA IN RANGE 

S552 015470 101407 BLOS “YES - SKIP 

S553 015472 012737 063034 o01202 MOV #OBUFF+230,$REG10 ;SET VALUES j 
5554 015500 012737 001544 601204 MOV #7.BA,SREGL1 
BEES O15 104010 ERROR 10 
5557 015510 012737 052707 OO14SO 16$: MOV sENL0 ENON ;SET MESSAGE 

e558 O1S516 023727 OOls4e 177512 CMP C, k-26 ; CHECK IF WORD COUNT WITHIN RANGE 

5559 015524 103007 BHIS -YES - SKIP 


. 
i ee rr ee ce TT 


iss4e iaoi 


SET eE & 
% 


Beer 
5581 
558 01 
5583 Bt 
S584 015602 lO4416 
5585 015604 
1 
ee HES BY 
5589 015614 177000 
Ge hen “Sp 
Si Q1 000 
S53e 015621 008 
zea O1Séee 00312 
tig CiS6e4 004437 
55% 015630 000015 
ese 01S63e 001000 
O1SE34 104417 
S600 015636 104430 
ae 015640 104002 
S603 O1S642 104421 
S604 015644 104004 
bebe O:S646 004437 
5608 ieee 001000 
ze10 O1S656 37 
Bu flees We 
S613 015666 060604 
5614 015670 000 
S615 015671 000 


RKE11 FUNCTIONAL CONTROLLER 0 
OZREKC.P11 O1-067-76 12:08 


pieess piers. Arels 


001S4e2 
177513 


001S+e 


040776 


040776 


034574 


TAGNOSTIC 


091202 
001204 
177513 


001202 
001204 


a 27(1006) 05-OCT-76 09:17 PAGE 10S 
UNIBUS PARITY ERROR 


MOV 8-266 , SREGIO :SET VALUES 


MOV WC, $REGLI 
ERROR 
208: cM T.WC, 8-265 3ST pL HEC CKING IF WC IN RANGE 
BLOS : YE 
MOV 8-265, $REGIO  :SET VALUES 
MOV WC, $REG1I 
ERROR 


es: 
-SETTL ##MULTIPLE SECTOR OPERATIONS 


sSSSSSSSESSRSSSSESSSSSSFLSSSLESFSLSHSSLLSLSSRESLSLSLSEASFSLSERLESE 
;ATEST 45 TWO SECTOR WRITE DATA (PART 1) 
i ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312, 
1% TRACK 0 SECTOR 0. 0. READ K ONE SECTOR 
:# A TIME AND MAKE I i ORRECT. 
; “LT pore are 
#50. ,STIMES -D0 SO. ITERATIONS 
TSSINIT ALEAR AR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
J R4, LRLOAD LOAD au" REGS 
oy a ngs 
oBurE tohure 18 BUFF ADDRESS 
-BYTE 0 SECTOR 
“BYTE 0 s TRACK 0. 
312 :CYLI 312 
JSR R4, GENCOM ;GENERATE DATA 
15 :PATTERN 15 
1000 1000 WORDS 
TLOADRK sLOAD RK REGS 
TWATSE sWATT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP :CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, GENCOM ; CLEAR IBUFF 
2007 :TO ALL 1°S 
1000 
ISR R4, LRLOAD sLOAD “L™ REGS 
RDDATA :RODATA 
-400 :=-400 WORDS 
IBUFF ?IBUFF IS BUFF ADDRESS 
BYTE 0 OR O 


"BYTE 0 : TRACK O 


SES Cis 





ere nn ne ee ee eee 


———— 


op 
f 


il 
018672 


tt 


SES oR RRS ERT RMON SE SE 
ee 


gee 
EG 
0+ 0—* b+ & 2 b= 6 b= b+ Pe = b= b+ Oe 


SSE 


aaa 


Ky TIONAL CONTROL 


01-0CT-"6 


034574 


004437 040776 


3 82 
8 
& 


eu 
é 
a 


z 


CO9 


ier DIAGNOSTIC MACYL1 27(1006) OS-OCT-7& 09:17 PAGE 106 
:08 THs TWO 


SECTOR WRITE DATA (PART 1) 


312 sCYLINDER 312 
T : RK 
rhe oe ay FoR INTERRUPT 
ERROR 2 :T0 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;ORS, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, LRLOAD sLOAD “L™ REGS 
RODATA : RDDATA 
3-400 WORDS 
IBUFF +1000 IBUFF+1000 IS BUFF ADDRESS 
-BYTE i SECTOR i 
312 s TRG R 312 
TLOADRK LORD BK 
TWAT 32 WA FORT 
ERROR 2 :T0 SOM NOT ERPPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
ISR R4, GENCOM ;COMPARE DATA 
100000 ; 
1000 +1000 WORDS 
BR 2 :NO MISCOMPARES-EXIT 
ERROR 15 *REPORT FIRST ERROR 
MOV ERRLMT, RO GET ERROR LIMIT. 
64S: DEC RO i DECRENENT COUNT 
jg bnflnte Of compre 
IR , GENCOM toon INUE DATA C 
gR 65S NO MORE ERRORS - EXIT 
ERROR 16 REPORT NEXT ERROR 
BR 64S LOOP 


ess: 


 ESEREESEEEEASESERESESEEEEEDERESEREEEEEEEEEEEEESEEREEEEEEEREEESE 
jATEST ats TWO SECTOR WRITE DATA (PART 2) 


x SSUE 8 WRITE DATA OF 1000 WORDS TO CYLINDER 312, 
s SECTOR 23. READ DATA BACK ONE SECTOR 

+ ihe AND MAKE SURE A MID-TRANSFER 

x Bee DID NOT Take PLACE. 


st 
jp seeeeennssenapneensnenceannESeEESOORnORURHEDENENURDEREEODENS 
V #50. ,STINES ;:D0 SO. ITERATIONS 
TSSINIT -CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 


JSR RY, LRLOAD ;LOAD “L” REGS 


Pll 01-OCT-76 13: 
are tee 000123 
ee Be 
‘ 1 
re 016026 O0003le 
SR oon cour 
rei Bieose 001000 
Sees O1G0ND 104417 
é 
S684 O1604e 104430 
568S O16044 104002 
eres O1E046 104421 
S688 016050 104004 
S629 
5690 
5631 
S632 
5693 
SES 016052 004437 
S695 016056 O00ie1 
S696 916060 177400 
5697 016062 060604 
S698 016064 0e3 
S699 016065 009 
ua O16066 O003le 
016070 904437 
S703 016074 002007 
S704 016076 001000 
Eo 016100 104417 
$707 O01610e 104424 
S708 016104 104002 
S710 O16106 104421 
5711 016110 104004 
S7le 
ete Stabe 004437 
14 016116 O00le1 
$715 O161e0 177400 
218 Olblee 061604 
717 016124 0e4 
2318 0161eS 009 
18 Ol6leé 000312 
5720 
S7e1 016130 104417 
S7ee Ol6l3e 1044e4 
S7e3 016134 104002 
zf5e 016136 104421 
pe Ci614O 104004 


RKE11 PLC TIONS CONTROL 
OZREKC. 


034574 


040776 


034574 


R DIAGNOSTIC. Re MACYL1 27(1006)_ OS-OCT-76 09:17 PAGE 107 


TWO SECTOR WRITE Bara (PART 2) 


— TA ;WROATA 5 
; ites ADDRESS 
BYTE aE :SECTOR 23 
.BYT $ 
312 :CYLINDER 312 
ISR R4, GENCOM ;GENERATE DATA 
16 :PATTERN 16 
1000 1000 WORDS 
TLOADRK :LOAD RK REGS 
TWATSE ;HAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


TRACK ADDRESS AT THE END OF ee IS IN ERROR 
HE CONTROLLER DID A MID-TRANSFER SEEK THOUGH IT 
WERE IN 24(8) SECTORS PER TRACK MODE 


JSR R4, LRLOAD sLOAD “L" REGS 
RODATA ;RODAT A 

-400 ~400 WORDS 

IBUFF :TBUFF IS BUFF ADDRESS 

-BYTE 23 :SECTOR 23 

"BYTE 9 TRACK O 

312 >CYLINDER 312 

JSR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 

1000 

T ;LOAD RK REGS 

Theres $HATY FOR INTERRUPT 

ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, & 7, 10 ;REPORT ALL ERRORS 

JSR R4, LRLOAD ;LOAD "L” REGS 

RODATA : RODATA 

IBUFF+1000 5-HOO i RO SUFF +1000 IS BUFF ADDRESS 
-BYTE 24 ;SECTOR iy 

"BYTE OO TRACK O 

312 ‘CYLINDER 312 

TLOADRK sLOAD RK REGS 

THAT3e SHAT FOR INTERRUPT 

ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP CHECK OPERATION FOR ANY ERRORS 


ERROR 4 ;0RS, 6, 7, io ; sREPORT ALL ERRORS 


0197 


oe 


RKE11 F 


OZREKC. 


pets 
SSE 


ddelsusuideelas saaeae 


SRUeTTEREE 


OoOoOO0O0000 280 000 200 2000 


23 
- 


z 


TI 


> 2-0 -+ > - 6-6-2 pH + a ed ee oe ed 


Rees Saat 


OoOKoORVIO00U00R0 O0000 ~- 
er ee ee 


004437 


I 


Gees Sisk 


~ 
~ 
o 


oes giy8 


bs 


5 8 
ZB 


2 


2 
Tm 
bs 


aes § 


8 
8 


Fs eal 


040776 


: 


0000be O00lete 


040776 


063606 
000377 


040776 


dia CUP oh Baares 1° 


ISR R4, GENCOM ; COMPARE DATA 
31 
1$ : =SKIP 

ERROR 15 :REPORT FIRST ERROR 

MOV RRLMT, RO RROR LIMIT 
64$: DEC ER iSEcaeren 

BEQ &S$ FR * Bett 

ISR R4, GENCOM SANT TA COMPARE 

BR , a3 ;NO MORE ERRORS - EXIT 

ERROR 16 *REPORT NEXT ERROR 

eR 64S ;LOOP 
o3s: 
s jHeeaeaeueaeeneseneesenenseeaesecarensnsneaenennecersesatsesy 
j TES TWO SECTOR WRITE DATA (PART 3) 


i ISSUE 8 WRITE DATA OF 401 WORDS TO CYLINDER 312 
*# TRACK 0, SECTOR 10. READ DATA BACK ONE SECTOR AT 
is A TIME AND CHECK ZERO FILL OF SECOND SECTOR. 


8 Cag “2 Rg ee apap apr eepenn ammane ua Son Tive ne 


$éty7: 
ao #50. ,STIMES ; iP TERATIONS 
TSSINIT ir éubeyeTEn 
ERROR 3 INIT ERROR 
ISR R4, LRLOAD pe "L” REGS 
WRDATA ;WROATA 
“401 WORDS 
OBUFF ‘OBUFF IS BUFF ADDRESS 
“BYTE 10 ; SECTOR 10 
‘BYTE 
3le CYLINDER 312 
JSR R4, GENCOM TE DATA 
z BR TTERN 2 
1000 +1000 WORDS 
TLOADRK sLOAD RK 
TWATSE WAIT FOR “Potemurr 
ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
ISEg? a son 56, 7, (seme as ene 
; CLEAR LAST T 377 WORDS OF OBUFF F FOR EXPECTED ZEROS FROM ZERO FILL 
MOV aOBUFF + 1002,RO ;GET STARTING ADDRESS TO BE CLEARED 
MOV 4377 :NUMBER OF WORDS 
1S: CLR (RO Oe :CLEAR WORD 
DEC Rl ; DEC COUNT 
BNE 1$ “LOOP UNTIL COUNT ZERO 
SR R4, GENCOM ‘SPEAR IBUFF TO ONES 
1000 


SEG 0198 







oRee 


[oe oe oe 


SSiRncK sea saeMseSTaD 


5810 
Seil 
sk 
5814 
5615 
S8ié 
eee 
18 
5819 
a tint 
S8ee Ol64le 
S823 016414 
S624 OlE416 
S8eS 016420 
5826 
es 016420 
52830 
5833 
Se34 
5835 
S836 
5637 016420 
$838 piece 
5839 016430 





a 


a 


2? 8 
4 Bes SBES 


aE 


001634 


000062 OO0lete 


TAGNOSTIC 4 li 27(1006) 


FOS : 
Tue SECTOR WRITE BATA iPART a3) O° 

















JSR R4, LRLOAD sLOAD “L” REGS 
RODAT ;RODATA 
-400 -400 WORDS 
IBUFF TELE IS BUFF ADDRESS 
BYTE 30 CTOR 10 
"BY K 0 
312 Ju 312 
TL 
re AB9? Poe" femur 
ERROR 2 :TO SLOW/NOT EOPPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
ISR r4, LRLOAD sLOAD “L" REGS 
RDDATA : TA 
-400 re 
IBUFF +1000 - IBUFF+1000 IS BUFF ADDRESS 
-BYTE 11 SECTOR 11 
"BYTE 0 ‘Fick 0 
3le :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWAT32 sWAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
ISR R4, GENCOM pe COMPARE 
oe ' 
BR 2g ROP ROR SKIP 
ERROR 15 REPORT FIRST ERROR 
MOV ERRLMT, RO T ERROR LIMIT 

64$: DEC RO BEC sere NT COUNT 
BEG 655 - EXIT 
: R4, GENCOM CONTINUE DATA COMPARE 
BR 65S ;NO MORE ERRORS - EXIT 
ERROK 16 ; REPORT NEXT ERROR 

oe 8R 64S LOOP 


SEPETTT TEETER TTT TTTTTETETTTTTTTTTTTTTTTTTTTTTeT Tr Teri TTT Tt tt tt 


jATES EST SO MID-TRANSFER SEEK ON WRITE (PART 1) 
+ SUE A WR TA OF TO CYLINDER 312, 
is TRACK be Sue READ DATE BACK ONE- SECTOR 
* E SURE A MID-TRANSFER SEEK 
ii BID Autre 
H sssssassanensnnsessnsesientnstnstuonasetssesets 
"MOV #50. ,STIMES ;:D0 ab: TERATIONS 
TSSINIT FALE SUBSYSTEM 





BeRekePIi Gi-Oy—e se Te Wels ON mal (PaRT 1) 


OAS: © 


ESEREREARAR Aas saat cata 


eo 


SeCRRESE 


6522 
016524 


104003 


peas 034574 
177000 


004437 040776 
000003 


004437 034574 


ERROR 3 


jar TA R4, LRLOAD 
-1000 


JSR R4, GENCOM 


200 

1000 

JSR R4Y, LRLOAD 
RODATA 


OP 
ERROR 4 
JSR R4, LRLOAD 
ROOA 


CHKOP 
ERROR 4 


'"400 WORDS 
'TBUFF IS BUFF ADDRESS 
sSECTOR 2S 


; TRACK 0 
sCYLINDER 312 


;0R S, 6, 7, 


;BAD INIT ERROR 


ieee” L” REGS 
OEM 15. BUFF ADDRESS 
+ RECK 0 
:CYLINDER 312 
GENERATE DATA 
:PATTERN 3 
1000 WORDS 
sLOAD RK REGS 
*WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 

CK OPERATION FOR ANY ERRORS 


Pub sieron ALL 


ERRORS 
at THE END OF THE OPERATION INDICATES A 


; LOAD ~ REGS 


;LOAD RK REGS 

ATT FOR INTERRUPT 

:TO SLOW/NOT COMPLETE ERROR 
CHECK OPERATION FOR ANY ERRORS 


id ; sREPORT ALL ERRORS 


; LOAD au” REGS 
‘400 WORDS 
-IBUFF+1000 IS BUFF ADDRESS 
sFECTOR 6 
‘CYLINDER 312 
sLOAD RK REGS 
:WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 
CHECK OPERATION FOR ANY ERRORS 


:0R S, 6, 7, {0 :REPORT ALL ERRORS 


HO9 


oii teeta Peg) Rib TRansPeR SEEK On WAL fe (PART 1) 


Sear iserg 

Hes 

5900 016576 

590 

2 18600 
16604 

$04 Ol 

30S 01661 

5906 016614 

5907 016616 

5908 016620 

5903 0166ee 

5910 Olb6e4 

5911 

$912 016624 

5913 

314 

$15 

5916 

5917 

5318 

5319 

53920 

$321 

S3ee 016624 

5923 016626 

539e4 016634 

5325 016636 

5926 

5927 016640 

5928 Olb644 

53e3 Ol6646 

5930 016650 

5931 016652 

5932 016653 

5933 O16654 

5334 

5935 016656 

5936 016662 

5937 Ol16664 

5938 

a O1GE55 

S40 016670 

5941 016672 

SHe 

5943 

S344 016674 

S345 016676 

SS46 

5947 016700 

5948 016704 

5949 016706 

5950 

5951 016710 


004437 


002007 
001000 


040776 


001634 


o00db2e O0lete 


040776 


040776 


034574 


a R4, GENCOM : COMPARE DATA 
1s 'NO_ ERRORS-SKIP 
15 SREPORT FIRST ERROR 
MOV _—EERRLMT, RO SGET ERROR LIMIT 
64S: DEC RO {DECREMENT COUNT 
eR Leathe DATA’ compare 
35h Re, GENCOM ON C 
BR oss :NO MORE ERRORS - EXIT 
ERROR 16 'REPORT NEXT ERROR 
BR 64s LOOP 


&ss: 


$: 
« SKSKSLEFAAFSESSLELLEAESEASLSLEELSERARSEAERESREZRA RELA SS SEFERELELSE 
4 TEST Sl MID-TRANSFER SEEK ON WRITE (PART 2) 


: ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312, 
1% TRACK 2, SECTOR 25. READ DATA BACK ONE SECTOR 
1% AT A TIME AND MAKE SURE A MID-TRANSFER SEEK 
is DID TAKE PLACE. 
OS eg aspen er cegemenesngimean ero 
V #50. .STIMES ::D0 SO. ITERATIONS 
TSSINIT :CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
JSR R4, LRLOAD sLOAD “L™ REGS 
WRDATA * WRDATA 
-1000 *=1000 WORDS 
OBUFF :OBUFF IS BUFF ADDRESS 
-BYTE 25 SECTOR 2S 
"BYTE 2 TRACK 2 
312 :CYLINDER 312 
JSR R4, GENCOM GENERATE DATA 
4 :PATTERN 4 
1000 1000 WORDS 
TLOADRK sLOAD RK REGS 
TWAT96 :WAIT FOR INTERRUPT 
ERROR 2 OW/NOT COMPLETE ERROR 
; A CYLINDER ERROR REPORTED AT THE END OF THE OPERATION INDICATES A 


: MID-TRANSFER SEEK DID NOT OCCUR. 
TCHK CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, id ; sREPORT ALL ERRORS 


tm R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
1000 


JSR R4, LRLOAD ;LOAD “L” REGS 


---— 


RKE11 F eae 
D 


ZREKC. 


016714 


016770 
016774 


8 88a 


Peep ag seg aed eet ed set rt rs ood rt a 
acd 
aay aor 
£Mo 


4 OOOO0O0OO00N0 200 
S Sivas 


ee awstiC 3 27( AS Nat PA aah nS Lo Fe 748 SES Slle 


040776 


64S: 


65$: 


TCHK 
ERROR 4 ;0R S, 6, 7, 


JSR R4Y, LRLOAD 
RODATA 


-400 

IBUFF +1000 
-BYTE QO 
.BYTE 0 
313 

TL 

TWAT4B 
ERROR eé 


ERROR 4 ;0R S, 6, 7, 
JSR R4, GENCOM 
00000 


1900 
BR 1$ 
ERROR 15 


MOV ERRLMT,RO 
RO 


65$ 
JSR R4, GENCOM 


65$ 
ERROR 16 
BR 64S 


tTdurr te BUFF ADDRESS 
:SECTOR 25 
: TRACK 2 
sCYLINDER 312 
sLOAD RK REGS 
*WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 


“CHECK OPERATION FOR ANY ERRORS 
10 ;REPORT ALL ERRORS 


;LOAD “L” REGS 
RODATA 
:=400 WORDS 
- IBUFF+1000 IS BUFF ADDRESS 
sector 6 
: TRACK 0 
‘CYLINDER 313 
LOAD RK REGS 
‘HAY FOR INTERRUP 
:TO SLOW/NOT ERRPLETE ERROR 


+ CHECK OPERATION FOR ANY ERRORS 
10 ;REPORT ALL ERRORS 


;COMPARE DATA 

53008 WORDS 
:NO_MISCOMPARES-SKIP 
REPORT 1ST ERROR 


;GET ERROR LIMIT 
; DECREMENT COUNT 


IF ZERO - EXIT 
‘CONTINUE DATA COMPARE 
;NO_ MORE Sa ~ EXIT 
renga! NEXT ERROR 


[Herren re reer nisaneaneainsanioniinaeeninsies 
TWO SECTOR READ DATA (PART 1) 


ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 3le, 
ao 0, SECTOR 0, VERIFY THAT CORRECT DATA IS 


it 


Whe We De OR RC OC BC 


NOTE: TWO SECTOR WRITE DATA (PART 1) MUST BE 
EXECUTED BEFORE THIS TEST. 


JO9 


RK&11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLI1 27(1006) OS-OCT-7&6 09:17 PAGE 113 SEG 0113 
DZREKC.P11 01-OCT-76 13:08 TS2 TWO SECTOR READ DATA (PART 1) 

£008 en ny eee 
pR03 eee Boggs SC 

it at . ‘ 4 oood&be O0l2ete Pee NIT #50. ,STIMES $100 20. preneT tons 
cole Bt SBdS tSudos ERROR 3 : BAD INET ERROR 
atts ;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE DATA (PART 1) 
6016 H GENERATE Ry! DATA AS USED IN TWO SECTOR WRITE DATA PART 1 
6017 O1704% 004437 040776 JSR R4Y, GENCOM s SENET E DATA 
6018 917050 900015 1S TTERN 15 
Paes 017052 001000 100 if O00 WORDS 
6021 017054 004437 040776 JSR R4, GENCOM sCLEAR IBUFF TO ALL ONES 
PRES p17 pee 2007 
602 17062 1 1000 
60eS 0170684 004437 034574 JSR R4, LRLOAD ;LOAD “L” REGS 
6026 017070 9000121 RDDATA ;RODATA 
6027 017072 177000 -1000 1000 WORDS 
6028 017074 O&0604 IBUFF tT BUFF IS BUFF ADDRESS 
6029 017076 000 -BYTE O :SECTOR 0 
6030 017077 000 -BYTE OQ : TRACK KO 
6031 017100 o003ie 312 : CYLINDER 312 
6033 017102 104417 TLOADRK LOAD RK REGS 
6034 017104 104430 TWATSE inert FOR INTERRUPT 
6035 017106 104002 ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
6037 O17110 104421 TCHKOP * CHECK GEERT TON FOR ANY ERRORS 
6038 017112 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
6040 pit 004437 040776 JSR R4, GENCOM ;COMPARE DATA 
6041 0171 100000 100000 
6042 017122 001000 1000 ;1000 WORDS 
6043 017124 000413 BR 1$ 3;NO MISCOMPARES-SKIP 
6044 017126 104015 ERROR iS 
6046 017130 013700 001634 MOV ERRLMT,RO ;GET ERROR LIMIT 
6047 Riete BOTaoe 64S: fee es : DECREMENT COUNT 
6049 017140 004437 040776 JSR R4Y, GENCOM Ete DATA COMPARE 
6050 0171 04 40000 
6051 017146 o0040e BR S$ ;NO MORE ERRORS - EXIT 
a 017150 104016 ERROR 16 REPORT NEXT ERROR 

017152 000770 BR 64S : LOOP 

6054 017154 65S: 
6055 
6056 017154 
6057 ; cE TENE II, BTL 
epee jATE ST 53 TWO SECTOR READ DATA (PART 2) 
6060 + ISSUE A READ DATA OF oe HORDS TO CYLINDER 3le f 
pO) # TRACK ae CTOR Baio ver Y THAT CORRECT DATA IS | 
Pars ” READ AND A MID-T FE yan DOES NOT OCCUR. —— 


RKE11 FUNCTIONAL 
D 1 01 


ZREKC.P1 


Rate 


Go 
a 
a 


01 


Bas 


— 
rrco 


rrorsrsrind 


O00 DBOOKO00000 
cores 


oo 
+0 + b= b+ 6 — & + 6 ee ee ee a Se Ce ee en ee ee ee ee eed 


B33 


SoA SRE RE SSRN EERE Bd to 


syed Qe oe SH g 


u 
Eee 


DO NON FW -ODBVRR EOS 
Qo 
g 


KOKMMMMMMMOMMOMMrMmr mma 
Os hs bs ban an 2b 2 0 00 be 2b 


SEARS a NU A Tl sa oi 


oO 
: 


85 
xe 


000062 O90l2te 


040776 


040776 


034574 


040776 


001634 


040776 


2 


;# NOTE: TWO SECTOR WRITE DATA (PART 2) MUST BE 
iS EXECUTED BEFORE THIS TEST. 


+ LHEAERAEKAAAELEL AL LAL ELE LA ELAELERELELE SELLE LEELA ELLA SELLA EAELEL 


t8153: ae #SO. ,STIMES 0. ITERATIONS 
Mee Nat iy iP e.8 epee eert 
ERROR 3 ‘BAD INIT ERROR 
;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 2) 
ISR R4, GENCOM GENERATE DATA 
16 ‘PATTERN 16 
1000 1000 WORDS 
ISR R4, GENCOM sCLEAR IBUFF TO ALL ONES 
1000 
JSR R4, LRLOAD sLOAD “L” REGS 
RODATA :RODATA 
-1000 =1000 WORDS 
IBUFF :IBUFF IS BUFF ADDRESS 
BYT = ‘SECTOR 23 
.BYT: . K 
312 :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
WATE :WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
ISR R4, GENCOM ;COMPARE DATA 
100000 
1000 ; 1000 WORDS 
BR 1$ :NO_MISCOMPARES-SKIP 
ERROR 15 "REPORT 1ST ERROR 
MOV ERRLMT, RO ;GET ERROR LIMIT 
64S: DEC RO :DECREMENT COUNT 
BEQ 65$ ‘IF ZERO - EXIT 
ISR R4, GENCOM CONTINUE DATA COMPARE 
BR 6S$ ;NO MORE ERRORS - EXIT 
ERROR 16 :REPORT NEXT ERROR 
BR 64S : LOOP 
65S: 
5 Fee rer rarer a 
j ATE TWO SECTOR READ DATA (PART 3) 
rr ISSUE ; READ DATA OF 401 WORDS TO CYLINDER 312, 
* TRACK 0, SECTOR 10. VERIFY THAT ALL 401 WORDS 
* ARE PLACED™ IN MEMORY. 





RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC a 4 006 } 
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6120 
blel 
blee 
een 
He pia 
E15? bi73i0 
61e8 017312 
6129 
6130 
6131 
S13e 017314 
6133 017320 
6134 017322 
E13 017324 
ei? 017330 
6138 017332 
6139 
6140 017334 
6141 017340 
6142 01734e 
6143 Beate 
6144 017346 
6145 017347 
a 017350 
614 
6148 0173Se 
6149 017354 
pi 017356 
6151 
pies 017360 
61 017362 
Elec 017364 
6156 017370 
6157 017372 
He an 
6160 
HEL pire 
He Re 
6164 017410 
6165 Bite 
6166 O17416 
6167 017420 
6168 017422 
6169 017424 
6170 O174e4 
Hn 
Hf 
6174 
6175 
| 
| 


LOS 


~0CT-76 09:17. PAGE 115 
SECTOR READ DATA (PART 3) 


SEG 0115 


1 NOTE: TWO SECTOR WRITE DATA (PART 3) MUST BE 
i EXECUTED BEFORE THIS TEST. 
PPC tlle 
012737 o00062 O0l2b2 MOV #50. ,STIMES -D0 SO. ITERATIONS 
104416 TSSINIT PAL EAR SUBSYSTEM 
04003 ERROR 3 :BAD INIT ERROR 
: GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 3) 
004437 040776 JSR R4, GENCOM goenaTe DATA 
poo0g2 2 TTERN 2 
000401 401 iOOL i WORDS 
094437 040776 JSR R4, GENCOM — IBUFF TO ALL ONES 
002007 2007 
001000 I 
004437 034574 JSR R4, LRLOAD ;LOAD “L" REGS 
000121 RDDATA ;RODATA 
177377 -401 401 WORDS 
060604 IBUFF t TBUFF IS BUFF ADDRESS 
010 -BYTE 10 :SECTOR 10 
000 "BYTE TRACK 0 
000312 312 :CYLINDER 312 
104417 TLOADRK ;LOAD RK REGS 
104430 TWATS6 ;HAIT FOR INTERRUPT 
104002 ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
004437 040776 ISR R4, GENCOM ;COMPARE DATA 
100000 100000 
000401 401 :401 WORDS 
O00413 BR 1$ NO MISCOMPARES-SKIP 
10401 ERROR 15 :PRINT FIRST ERROR 
013700 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
005300 64S: DEC RO *DECREMENT COUNT 
1 BEQ 65S IF ZERO - EX 
004437 040776 JSR R4, GENCOM ‘CONTINUE DATA COMPARE 
Bapane 6S$ ;NO MORE ERRORS - EXIT 
104016 ERROR 16 =REPORT NEXT ERROR 
000770 64S LOOP 
bss: 
5 peer ee TT NSD LTRANSFER SEEK ON READ (PART DD 
jATE MID-TRANSFER SEEK ON READ (PART 1) 
+ ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312 
i TRACK 0, SECTOR 2S. VERIFY THAT CORRECT DATA IS 


MOS9 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 116 SEG O11E 
DZR&KC.P11  O1-OCT-76 13:08 TSS MID-TRANSFER SEEK ON READ (PART 1) 
6178 i READ AND A MID-TRANSFER SEEK DOES OCCUR. 
6 :# NOTE: MID-TRANSFER SEEK WRITE (PART 1) MUST BE 
6179 1 EXECUTED BEFORE THIS TEST 
618 : © SEAR ARAKERSREL REARS EEA RASA LARA SRAE RA RAAAALSERAALAAESLAAALZAAAEL ES 
61 pi7ues o00004 tétss: 
3 O17Me 012737 000062 001262 i aa #50. ,STIMES : ieee 50. TTERATIONS 
bigs 017436 {Bugos ERROR 3 AR AET ERROR 
6187 ; GENERATE SAME DATA AS wes IN MID TRANSFER SEEK ON WRITE (PART 1) 
6188 017440 004437 040776 JSR R4, GENCOM ;GENERATE DATA 
6189 017444 900003 3 ‘PATTERN 23 
6120 017446 001000 1000 1000 WORDS 
6192 017450 004437 040776 JSR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
6193 017454 002007 2007 
6134 017456 001000 1000 
£196 O17460 004437 034574 ISR R4, LRLOAD sLOAD “L” REGS 
6197 017464 000121 RDDATA by A 
6198 01 177000 -1000 1000 WORDS 
6199 017470 O&0604 F STBUFF IS BUFF ADDRESS 
6200 0174 025 -BYTE 25 3 SECTOR 25 
6201 017473 060 “BYTE O KO 
6202 017474 000312 312 CYLINDER 312 
PSp4 Ser 017476 104417 TLOADRK sLOAD RK REGS = haa 
6205 017500 104430 TWAT96 sWAIT FOR INTERRUPT 
b20B 017502 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
6208 017504 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
203 017506 104 ERROR 4 ;0R5S, 6, 7, 10 ;REPORT ALL ERRORS 
6211 017510 004437 040776 JSR R4, GENCOM ;COMPARE DATA 
bele 017514 1 100000 
6213 017516 001000 1000 ; 1000 WORDS 
6214 017520 000413 BR 1$ :NO MISCOMPARES-SKIP 
be15 017522 104015 ERROR 15 :PRINT FIRST ERROR 
6217 017524 013700 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
6218 017530 005300 64$: DEC RO “DECREMENT COUNT 
6219 017532 001406 BEQ 65S :IF ZERO - EXIT 
6220 017534 004437 040776 JSR R4, GENCOM :CONTINUE DATA COMPARE 
6221 017540 oO40000 40000 
be22 O17542e o00402 65$ ;NO MORE ERRORS - EXIT 
6223 017544 104016 ERROR 16 *REPORT NEXT ERROR 
017546 000770 BR 64S :LOOP 
6225 017550 65S: 
6226 017550 1$: 
PSE? $  HESEODODODURSESODESUDUSUSUSSURUSBUSEESODSESOUSSURNUEEEDEDEUOE 4 
bec jATE MID-TRANSFER SEEK ON READ ‘PART 2) 
6230 . ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312 
6221 + TRACK 2, SECTOR 2S. VERIFY THAT CORRECT DATA IS 
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OZREKC.P11 

b2 

es 

6234 

PS 

2 

6238 017550 
6239 017552 
6240 B17 eee 
6e41 017562 
be4e 

6243 

6244 017564 
6245 017570 
6246 017572 
6247 

6e48 017574 
6249 017600 
6250 017602 
6251 

62eSe 017604 
6253 017610 
6254 017612 
6255 017614 
62eS& 017616 
6257 017617 
6258 017620 
6259 

6260 017622 
6261 017624 
6262 017626 
6263 

6264 017630 
6265 017632 
6266 

6267 017634 
6268 017640 
6269 017642 
6270 017644 
6271 O17646 
b27e 

6273 017650 
6274 017654 
6275 017656 
6276 017660 
apes 
6279 017670 
6e80 017672 
6281 017674 
6282 017674 
6283 

6284 

68S 

£286 

6287 


01-OCT-76 13:0 


000004 
Ole737 O0006e 001262 


004437 040776 
002007 


034574 


004437 040776 


013700 001634 
005300 


001406 
004437 040776 
040000 


SE 7 
MID-TRANSFER SEEK ON READ (PART 2) ws 


i READ AND A MID-TRANSFER SEEK DOES OCCUR. 
1% NOTE: MID-TRANSFER SEEK ON WRITE (PART 2) MUST BE 
i EXECUTED BEFORE THIS TEST. 
ii grse: Scope RERKARARRALA LA RSA ARAL A RAAA RE RAL LA LF LALLA ALALEALEE 
#50. , STIMES ::D0 SO. ITERATIONS 
TSSINIT LEAR AR SUBSYSTEM 
ERROR 3 
; GENERATE SAME DATA AS a IN MID TRANSFER SEEK ON WRITE (PART 2) 
ISR R4, GENCOM ;GENERATE DATA 
4 PATTERN 4 
1000 +1000 WORDS 
ISR, R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
iuuo 
ISR RY, LRLOAD sLOAD “L” REGS 
DDATA sROAT ) 
- 1000 WORDS 
IBUFF t TBUFF IS BUFF ADDRESS 
-BYTE 25 SECTOR 2S 
"BYTE 2 TRACK 2 
312 CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWAT96 :WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 410 ;REPORT ALL ERRORS 
SR R4, GENCOM COMPARE DATA 
100000 
000 ;1000 WORDS 
BR 1$ :NO_MISCOMPARES-SKIP 
ERROR 15 REPORT FIRST ERROR 
MOV ERRLMT,RO GET ERROR LIMIT 
64S: DEC RO. ; DECREMENT COUNT 
ISR R4, GENCOM SCONTINUE DATA COMPARE 
R 65S ;NO MORE ERRORS - EXIT 
ERROR 16 REPORT NEXT ERROR 
4g LOOP 
65S: 
1 Ly em rn Crear ey Wart at il 
;ATE CYLINDER ADDRESS OVERFLOW (PART 1) 
rr ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632 


1 TRACK 2, SECTOR 25. MAKE SURE CYLINDER ADDRESS 


-SBTTL ##18 BIT DATA TRANSFER TESTS 


RKEIL FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLI ze ' 118 6 011 
DZREKC.P11  O1-OcT-7e 13:08 Te? “CYLINSER se SveRei du (PAE ame Gite 
6298 :# OVERFLOW ERROR DOES NOT OCCUR. 
PSE; s bonnannenounniseannunensnnsnensunnanacnensetennmemenenbeeneines 
be3! 17674 gog904 ives SCOPE 
1767 Ol2737 000062 001262 MOV aSO. .STIMES ::D0 SO. ITERATIONS 
6293 017704 ioe TSSINIT CLEAR SUBSYSTEM 
beg 1770 1 ERROR 3 :BAD INIT ERROR 
bes 17710 034574 JsR, RY.LRLOAD ; "L" REGS 
Be inh Bee oe ES ao 
177 I ty IS BUFF ADDRESS 
£533 bites omg? TRUE os ra 3. 
6301 Ol77e3 O02 "BYTE 2 :T 
ee 017724 000632 é32 tA INDER 632 
6304 Ol 104417 TLOADRK LOAD RK REGS 
6305 pitt aaa TWATIS9 aait FOR INTERRUPT 
pae Ol 735 1OMOde ERROR 2 'T0 SLOW/NOT COMPLETE ERROR 
6308 017734 10442! TION FOR ANY ERRORS 
6309 017736 ic4O04 ERROR REPORT ALL ERRORS 
10 Ak Bn TNA a9 2 aber 
cH i ATES T 60 CYLINDER ADORESS OVERFLOW (PART 2) 
6313 :# ISSUE A READ DATA OF 401 WORDS 10 CYLINDER 632 
| 6314 : TRACK 2, SECTOR 25. MAKE SURE CYLINDER ADDRESS 
| BRE = OVERFLOW ERROR DOES OCCUR. 
£317 ©  SFSSSFSSSESSSFLSSFSLSSHESSLLLFSRLRASRFLLSSLASLSSLELESLASSRESLALESE 
631@ 017740 900004 t$Te0: 
6319 O17742 012737 OCO0b2 oOl2b2 MOV #50. .STIMES ::D0 50. B02, LTERATIONS 
«BBP ptseed tRudds ERROR 3 CLEAR SuBsySTEn 
| 
bes 017754 004427 024574 JSR RY, LRLOAD LOAD “L" REGS 
|B ize Be a ha 
P56 StoSES beoeo4 LIBUFF IS BUFF ADDRESS 
| $367 0177 Ges BYTE 25 : SECTOR 2s 
6328 01776 BYTE 2 2 
6329 017770 pookss 632 + TINDER 632 
j 
| ep a 17772 104417 TL LOAD RK REGS 
| ‘e332 Bee 104434 TWATIS9 tWAIT FOR INTERRUPT 
| 6333 017776 104002 ERROR :T0 SLOW/NOT COMPLETE ERROR 
Ease 920000 104422 TCHKWE CHECK OPERATION WITH EXPECTED ERROR 
| 6336 den00e nate :CYLINDER OVERFLOW 
| 6337 Oe0004 9S00000 
| 6338 620006 DSo0000 0 
| £333 20010 104004 ERROR 4; OR S,6,7 REPORT ANY DISCREPANCIES 
| 
| 





a ee ee ae rr ee — 





RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC macy Li 2" ) 05-OCT-76 9:17 PAGE 119 
bokec Bn O1-O67-76 13:08 Fonnee IN 24 SECTOR 
$244 es + FERESSSSSRSFESSESSESSSLESSESSSSLSLSSESAELSSSFSASESSSLSSLLSSSSE ASS 
re j TEST 61 FORMAT IN 24 SECTOR FORMAT 
te FORMAT CYLINDER 312 AND TRACK 1 FOR 24 SECTOR 
:# FY Pee at Mo AND Oat bara LATE D T 
8 com iT DALTE FEDER ON IN REROING DATA BUFFER 
6351 ie 
Paes ° + SSSFSSSSSSSSSSSESESASSLALASLSSSSESELRELEELARSSAALLEFESELSLSL ELSES 
000004 tSte1: SCOPE 
£354 12737 999062 901262 HOV #50 ; STIMES DO SO. Pee 
as 
P3222 pieas 661110 ey a8, feet ah Ree LOC RE OOP ONE 
£357 005001 = CLR :CLEAR R1 FOR TRACK COUN 
Pace 104416 ’ TSSINIT ;CLEAR SUBSYSTEN 
6360 104003 ERROR ‘BAD INIT ERROR 
£361 1 010127 001600 MOV BWRHEADICFMT.L.CS1 ;SET UP FOR WRITE HEADER 24(8) SECTOR MODE 
£35¢ 1 B13737 G16 MOV DRVNUM, L .CSe get DRIVE NUMBER 
1 061 MOV 874,L. ‘SET COUN 
£364 119137 001607 aia Ove R1,L.0T nt LOAD TRACK ADDRESS o 
eRe pieee? le OO1614 MOV 831 TL BeYL : cYLI ADDRESS 
£368 040776 J R4, GENCOM GENERATE HEADER 
p63 Bbia8o 1360 : INCLUDE SECTOR BITS 
6271 104417 TLOADRK RK REGS 
bre 1044 THWATISS ry FOR RRUPT 
bs73 1 eiose ERR: 2 >TO SLOW/NOT COMPLETE ERROR 
p20122 104421 TCHK sCHECK OPERATION FOR ANY ERRORS 
cue 0201 1Bios4 ER 4 ;ORS, 6, 7 25m, ALL EARORS 
6378 O20126 104415 SCOP] sLOCAL LOOP ON ERROR TO 1S 
0201 TST Ri ;R1 POINTING TO TRACK CO 
foe} gona pero oa RL Bor 
ae eh ee lp 
AS01460 01 020150 O01110 28: MOV 83S, SLPERR LOCAL LOOP ON ERROR 
6385 ee 005001 ® CLR Ri CLEAR TRACK POINTER 
es 1 10441 , TSSINIT CLEAR suBsySTEM 
Foes teat ies 01 1 Sov SROHEAD! CENT, “e cb «DA b RERO (@) SECTOR FORMAT 
Eas beties pisea> SAteSe BRIE Rov, GRVNUR,L. CS ond Bai ve 
6391 020170 110137 001607 MOVE L.of sL OR TRACK 
p23 020174 012737 000312 001614 MOV abit: L.DCYL ‘TOAD CYLINDER 
6294 O20e02 004437 035114 JSR R4, RDSTHD GO READ STANDARD HEADER 
6295 020206 104421 TCHKOP “RETURN IF CERR W/O DATA LATE SET 
p23 020210 104004 ERROR 4: OR 5,6,7 : REPORT PL OTHER ERRORS 
e332 20814 loso02 cme ero "6 EEATION TQ SLOW" OR “HEADER 
£299 :0 FOUND” NE MESSAGE 





e 


SeSeReERER 


£Wwte-o 


TEEEE 


D10 


FUNCTIONAL CONTROLLER DIAGNOSTIC macy 27(1006) OS-OCT-76 09:17 PAGE 120 SEQ 0120 
Pll O3-OCT-76 13:08 Tél FORMAT IN 24 SECTOR FORMAT 
is R4, GENCOM LOTEROTE tones R 
iBteno a f GENERATE § spares Fotegee 2 
ERROR 1 IREPORT Firs RES ce 
MOV ERRLMT, RO :GET ERROR LIMIT 
64$: DEC RO : NENT T 
BEG S$ : - EXIT 
ISR R4, GENCOM :CONTINUE DATA COMPARE 
65S ~ sNO MORE ERRORS - EXIT 
ERROR 16 :REPORT NEXT ERROR 
oR Eng 3L 
&s$: 
4§ SCOP1 sLOCAL LOOP TO 3$ 
ist RI s POINTING TO TRACK 1 
INC 1 re 1 TRACK 1 
BR 3$ :LOOP 





$$: 
; SELES SERESEESEREEESREAEREE SEER ELLE EE RERE RELA RESE SEES ESE EERE EEE EE 
SATEST be 24 SECTOR FORMAT DATA TRANSFER (PART 1) 
;# 


3 ISSUE A WRITE DATA OF 490 WORDS IN 24 SECTOR FORMAT 
te 10 CYLINDER 312, TRACK 0, SECTOR 0. READ SECTOR BACK 
3 AND MAKE SURE If IS CORREC 


0 EEEEE GEESE ESERIES EEE EEE EEE EEE 

p20270 pooon4 téte2: Sc 

012727 o00062 O01262 MOV #50. ,STIMES ;:D0 SO. ITERATIONS 
Benaoe ipaaig COE Cole 2 
BSoat8 104003 3 :BAD INIT ERROR 
02031 37 040776 J R4, GENCOM ; TE DATA 
Sp aie ere 13" OES EEN 3 
020320 00400 400 :400 WORDS 
eee 004437 040776 ISR, R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
020332 004437 034574 JSR R4, LRLOAD ;LOAD “L” 
020336 b10163 WROATA! CEMT MRDETA!CENT 
020340 1 -400 ;-400 woRDS 
C2342 62604 OBUFF ;OBUFF IS BUFF ADDRESS 
020344 000 -BYTE 0 ; TOR 0 
HERE coclid "at f 

l 3le :C YLINOER 312 

020350 104417 TL ;LOAD RK REGS 
020352 104430 TWAT :WAIT FOR INTERRUPT 





OREKCSPLT  OI-Octone ashe aS bo dE Afr 1) 


64SE 020354 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
hg 4 ES: ' 4 C T ANY 
tRGda4 FREE 4 sons, 6, 7, isMeREROREPAA Bena.” ERRORS 
6461 020362 904437 024574 JSR amet RY, LRLOAD ;LOAD “L” REGS ent 
Beasee | TSS45é 400 wokBe 
6464 020372 O60604 IBUFF eran ae BUFF ADDRESS 
AN .BY H 
Rseaee DOG nm BVIE : ; 0 
6467 020378 000312 312 sCYLINDER 312 
D 7 TL G 
Ejs3 RSRYRO 8427 Thoeeee Oe FoR INTERRUPT 
ae o20404 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
104421 CHKOP -CHECK OPERATION FOR ANY ERRORS 
eal rate 104004 ERROR 4 ;0R 5, 6, 7, 10 ;REPORT ALL ERRORS 
B47 Bole Toa 040776 1Gho0o R4, GENCOM ;COMPARE DATA 
aes teoies 000413 a 1$ ig niscon IP 
ay d20424 104015 ERROR 15 REPORT tet ARES OR. 
020426 013700 001634 MOV ERRLMT, RO e ERROR Soon 
6483 020432 005300 64$: DEC RO 
Bepase | ppaase fC 
040776 ISR GENCOM * le 
a a a 65S a MORE ERRORS - EXIT 
4 pepe 104016 ERROR 16 tREPORT NEXT ERROR 
6489 920450 000770 BR 64S LOOP 
6490 de04s2 65S: 
6491 
o204s2 1$: 
¢ ne pegs yt re ene ~ mmaeneen 
pugs ; ATE 24 SECTOR FORMAT DATA TRANSFER (PART 2) 
+ LOAD A LOCATION WITH BAD PARITY. ISSUE A WRITE DATA OF 
6497 *# 4OO WORDS IN 24 SECTOR FORMAT TO CYLINDER 312, TRACK O, 
psc # SECTOR O WITH BUFFER BEGINNING 110 WORDS 
£495 i WITH BAD PARITY. MAKE SURE UNIBUS PARITY ERROR DOES NOT SET. 
B800 i READ SECTOR BACK AND MAKE SURE IT IS CORRECT 
33 +e NOTE: THIS TEST IS EXECU Y IF MEMORY PARITY 
i EXISTS FOR SPECIFI LT TON. 
6505 METITTTTTTTC TTT Te TTT TTT TTT ett ttt tr iti ttt titi ttti tt titty 
6506 O204S2 oD0004 +éT63: SC 
6507 O204S4 012737 cOndb2 o012b2 MOV #50. ,STIMES -D0 SO. ITERATIONS 
6508 Oe04b2 012737 000312 001664 MOV #312. REFMT ber T REFORMAT SWITCH 
6509 020470 032737 000200 OoO0leSe BIT #PARBKO, OPTFLG ; PARITY OPTION PRESENT? 
6519 020476 O01504 BEQ 4% : YES-SKIP 


. 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC 





DZREKC.PL1 01-OCT-76 13:08 
DO4437 O40776 
000014 
000400 
012746 o90340 
Ole746 Oe0S22 
6520 
6521 Oe0S22 032737 000100 
et t 
So oe 
6524 020540 TE 000004 
6525 020546 012737 177777 
fee? Geteee Dlerre Qioont 
1 
6529 020576 001403 
6530 020600 012777 000001 
posh 0206068 O13746 O0lé22 
6533 Asie 012746 
6525 pspeae 
6536 O2e0620 I044IE 
6537 Oedbe2e 104003 ~ 
fee (ees foes? ons 
ced Geese 7706 
peal ete cca 
6543 020637 000 
6544 020640 9003le 
1a) hsp ria 
| Be Ben ipa 
| 5s6 020650 104421 
6551 Oe06Se 104004 
6552 
| 6553 
essy 
6sss 
| 6556 O2e0654 005077 161022 
6557 020660 032737 000100 
6558 O2e0666 001402 
6553 020670 005077 161010 
6560 020674 005037 062026 
| 6561 020700 905037 063024 
| 662 Ge0704 004737 033704 
| §564 o20710 
ese 
Bree 
| 


001656 


161144 
161134 
063026 


063024 
agiese 


161076 


001656 


F10 


MACYLI 27(1006) OS-OCT-76 09:17 PAGE 122 SEQ O122 
Té3 24 SECTOR FORMAT DATA TRANSFER (PART 2) 
1S: JSR R4, GENCOM ;GENERATE DATA 
14 :PATTERN 14 
400 :400 WORDS 
MOV #PR7, -(SP) ;SET PRIORITY TO 7 
HOV 810$; -(SP) :SET ADDRESS 
10S: 
eI SPARBK1,OPTFLG ;TEST IF BANK 1 AVAIL 
BBS IT2, IMMCSRe te, PARITY WRITE 
Ss: MOV SBIT2.aMMCSR1  :SET WRONG PARITY BIT 
MOV 8-1,0BUFF+222 WRITE WITH BAD PARITY 
Nov RBTTO’SMMCSRY CLEAR WRONG PARITY, SET IE 
BIT SEARBKT OPTELG :TEST IF BANK 1 AVAIL 
BEQ 6S :NO - SKIP 
MOV 88170, IMMCSRe 
6S: MOV RKPRI, -(SP) sRESTORE PRIORITY 
MOV #11$,-(SP) 
oy RTI 
; TSSINIT :CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
ISR R4, LRLOAD *LOAD "L™ REGS 
WRDATA! CEMT :WROATA! CFMT 
-400 ;-400 WORDS 
OBUFF :OBUFF IS BUFF ADDRESS 
BYTE SECTOR O 
“BYTE 0 TRACK O 
312 :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWAT :WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
EgtOe 64 ORS, 6 7, IO SREPORT ALL ERRORS re 
; A UNIBUS PARITY ERROR REPORTED AT THIS 
: TIME INDICATES CONTROLLER IS 
: PROPERLY TRANSFERRING DATA IN 18 BIT MODE 
CLR QMMCSR1 ;CLEAR IE 
BIT #PARBK1, OPTFLG 
BEQ 75 
CLR atIncsre 
7S: CLR OBUFF +222 
CLR OBUFF +220 
ISR PC, OPTTST RESET OPTIONS 
4S: 
. a Ri a eR nt AS i oh NEI AC tie Ahab 
; ATEST b4 24 SECTOR FORMAT DATA TRANSFER (PART 3) 


dé 


evra ois i Mh 8 


By Suse i Gay Sans 


thintn ty 
BBIR 


BeoRneoRes 


FERFEREREE 
WMONMuUcCwH-O 
RRRRR RR RRR RERRRRE RR 


RRR 


wv 
es 
be 


B oR 


Sara 
ocr 


ooo 


Bezee GR SRE RES 


034574 


040776 


TIONAL CONTROLLER DIAGNOSTIC 
01-OCT-76 13:08 


Tea OPT oR FORMAT x. eta bear 3) =e te 


eae SSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FORMAT 
BABAR itech AE ade PALE ere 
e SEEK HAS TAKEN PL 


[teeeenpeensenstasseneens seanenessananensseaeaneneasacanenestess 


aster 


#50. , STIMES ;:D0 SO. ITERATIONS 
ee a 
TSSINIT ; 
ERROR 3 : INET ERROR 
ISR R4, GENCOM ;GENERATE DATA 
15 :PATTERN 1 
1000 31000 
JSR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
1000 
ISR R4, LRLOAD sLOAD “L” REGS 
WROATA! CFMT yibOA TAL crn 
;-1000 
: IS BUFF ADDRESS 
BYTE 23 ‘SECTOR 23 
"BYTE : TRACK 
312 CYLI 312 
ThoTee SLOT? FOR INTERRUPT 
ERROR 2 TO a bRoNoT ERAPLETE ERROR 
TCHKOP :CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, LRLOAD ;LOAD “L™ REGS 
RODA Taicrmt -RODATA! CFMT 
TBUP :I I F ADDRESS 
? BYTE 23 ; SECTOR 2 
312 CYL NOER 312 
TLOADRK sLOAD RK REGS 
TWATE4 ;WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 


TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


JSR R4, GENCOM ;COMPARE DATA 
100000 

1000 

BR 1$ SCONPARES-Sk 
ERROR 15 pa FIRST ERROR 


H10 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY1I 27(1 -0CT- :17 SEG 0124 
DZREKC.P11  O1-OcT-76 13:08 Té4 oy eee on Fota 1 Bath thansFER (PART 3) 7 
6624 
6625 O210S2 013700 001634 MOV MT,RO GET ERROR LIMIT 
fees eines Bilis es Rae. pt. 
l % 040776 Ba cencon COMPARE 
51088 are 6S$ EXIT 
pps? p5t8e8 areata ERROR ee Port NENT ERROR 
6632 921074 000770 BR 64S LOOP 
6632 021976 &SS: 
6634 
6625 021076 1$: 
bee? .SBTTL ##SPECIAL DATA TRANSFER TESTS 
$ iret ce MUL TILSECTOR DATA TRANSFER AND BSE 
BENG ; ATE MULTI-SECTOR DATA TRANSFER AND BSE 
6642 FORMAT CYLINDER 312, TRACK O IN 26 SECTOR FORMAT WITH 
6643 + SECT OR 1 MARKED BAD. ISSUE A WRITE DATA OF 1000 WORDS 
6644 i# 0 CYLINDER 312, TRACK 0, SECTOR 0. MAKE SURE BAD SECTOR 
SE4S 1 ERROR ERROR SETS RKDA IS CORRECT. READ SECTOR O AND 
Beye 53 IT Is Corre eT. 
664 2% A_READ DATA YL 2, TRACK O, 
att TA Teen pe Ta URE BAD SECTOR ERROR SETS ARO THE 
B50 i PREVIOUS: SECTOR IS LOADED CORRECTLY INTO MEMORY. 
6652 H = EAKKSESLARESKEASLELSAELRSSHLA RESALE ELELELAAESELARARAARARARALRARLEFEE 
pped ait 012737 o00062 001262 tBtes: aby #50. ,STIMES 50. ITERATI 
6655 B5t te 012737 O00312 OO1GE4 MOV #312; REFMT HiT BT REFORMAT att teH 
6656 021114 104416 TSSINIT LEAR SUBSYSTEM 
BES? 021116 104003 ERROR 3 ‘BAD INIT ERROR 
6659 021120 004437 034574 JSR R4, LRLOAD fe “L” REGS 
el Bis pre ue es toes 
PEED 551158 beseos | OBUFF jOBUFF IS BUFF ADDRESS 
6663 021132 000 BYTE : TOR 0 
6664 021133 000 “BYTE : TRACK 
6665 021134 o003i2 3le OL INDER 312 
eee? 021136 004437 04077 J R4, GENCOM ;BUILD HEADERS 
BEES 021142 o00600 . 280 
6670 O21144 042737 OY0000 062614 BIC #BIT14,OBUFF+10 ;MARK SECTOR 1 BAD 
be71 O211S2 042737 O40000 Ob26l6 BIC #BIT14;OBUFF+12 ;CORRECT HURC 
6673 O21160 104417 TLOADRK sLOAD RK REGS 
6674 Oellbe 104431 TWATI12 ‘ait FOR INTERRUPT 
675 O21164 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
peas O21166 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
6676 021170 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
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XPSEC 
REALSEC, SREG11 

10 

c$ 

#3, SLPERR 


3 
R4Y, LRLOAD 


OS-OCT-76 09:17 PAGE 1 
MULTI-SECTOR DATA TRANSFER AND 8 
R4, GENCOM ; GENERATE DATA 
:PATTERN 16 
+1000 WORDS 
R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
RY, LRLOAD sLOAD “L” REGS 
Seg og 
‘Shure I F ADDRESS 
: SECTOR O 
‘TKO 312 
inart FOR rH 
2 TO SLOW/ NTRP ERROR 
;CHECK OPERATION WITH EXPECTED ERR 
;BAD SECTOR ERROR 
4: OR 5,6,7 sREPORT ALL DISCREPANCIES 
GRPYER : CLEAR GROUP 4 4 ERRORS 
RY, CHKCTS :CHECK CYL , SECT CORRECT AFTER ABORTED WRITE 
aTRKERR, : TRK IN ERROR? 
#£M13, EM1ON >"TRACK ADDRESS INCORRECT” 
EXPTRK,SREGIO ;EXPECTED VALUE 
REAL TRK, $REG11 ;REAL VALUE 
ROPERS? DFOLOA *"QFTER WRITE DATA TERMINATED WITH BSE” 
S$ sEXIT 
#SECERR,GRPYER ; ;SECTOR. IN ERROR? 
#£M14. EMLON PMCECTOR ADDRESS INCORRECT" 
#OPER37.DFO1OA "AFTER WRITE DATA ABORTED WITH BSE™ 
EXPSEC, $REG1O VALUE 


3 EXPEC Lg 
; REAL 


sEX IT 
;LOCAL LOOP TO BEGINNING OF TEST 
Set LOCAL LOOP ON ERROR 


;CLEAR SUBSYSTEM 
:BAD IN if! ERROR 
"LOAD "L” REGS 
‘RODATA” 

-400 WORDS 
t TBUFF IS BUFF ADDRESS 
;SECTOR O 


; TRACK O 
;CYLINOER 312 


SEG 0125 
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RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1 -0CT-76 09:17 PAGE 1 
13:08 Tes MULTI -SECTO A TRANSFER AND BSE” 


DZREKC.P11 O1-OCT-76 OR DATA 
673 

b7 2122 104417 TLOADRK :L OAD RK REGS : 

bras Bs tus¢ iPidee ERRORS 2 6 CER OY ERNBL ETE ERROR 
674] 021430 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
bre 021432 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
6744 021434 37 040776 JSR R4, GENCOM :COMPARE DATA 

me ES ee ioe —— 

poe 021444 900413 BR 4g MISCOMPARES-EXIT 

brie O21446 104015 ERROR 15 REPORT FIRST ERROR 

6 l 634 MOV RRLMT, RO 

6751 oS iden pee 08 nn 64$: DEC ER iSECREnENT Count 

6752 O21456 001406 BEQ 65S 

6753 21460 DO4437 040776 ISR R4, GENCOM CONTINUE “obra COMPARE 
6754 021464 40000 

6755 Ocl466 Oo040e2 BR 65S ;NO MORE ERRORS - EXIT 
6756 021470 104016 ERROR 16 REPORT NEXT ERROR 

6757 021472 000770 BR 64S LOOP 

758 021474 65S: 

6760 021474 004437 040776 ug: ISR R4, GENCOM ;CLEAR IBUFF 

6761 021500 002007 2007 

7b 021502 001000 I 

6764 O21504 904437 034574 JSR R4, LRLOAD ;LOAD “L" REGS 

6765 021510 000121 RDDATA ;RDDATA 

6766 021512 177000 -1000 1000 WORDS 

6767 021514 O60604 BUFF TRUE IS BUFF ADDRESS 
6768 O215i6 000 ‘BYTE 0 ‘SECTOR O 

6769 021517 000 "BYTE O 

6770 021520 00312 312 'CYLINDER 312 

6772 O21S22 104417 TLOADRK sLOAD RK REGS 

6773 21524 104424 TWAT 32 :WAIT FOR INTERRUPT 

7 i526 104002 ERROR 2 ‘TO SLOW/NOT COMPLETE ERROR 
6776 021530 104422 TCHKWE sCHECK OPERATION WITH EXPECTED ERROR 
6777 Oe2l53e 990000 0 

6 021534 0001 BSERR BAD SECTOR ERROR 

6 621536 000000 0 

6780 021540 104004 ERROR 4; OR 5,6,7 REPORT ALL DISCREPANCIES 
678 eisue 004437 040776 JSR R4, GENCOM COMPARE DATA AGAIN 

6 1546 100000 100000 

6784 021550 00400 400 400 WORDS 

6785 021552 900413 BR S$ NO MISCOMPARES 

£78 021554 104015 ERROR 15 ‘REPORT FIRST ERROR 

cre les Guam gg, a nore Ca 

£750 rata 001406 " «BE 67S :IF - EX 

6791 021566 004437 040776 JSR R4, GENCOM ‘CONTINUE DATA COMPARE 


K10 | 


RK&11 FUNCTIONAL CONTROLLER DIAGNOSTIC acyl 2711 ? SEG 0127 
Sera Sh aad seh ees a ee MES eceC TOR SATA TRANSEER ANG Bo . 
6792 021572 o40000 40000 
6793 021574 o00402 Fre “ 675 R RE ER mF Ean 
Boad BStece ARE Bs eeoe 
67% O2160e 67S: 
6797 
6798 021602 
3 [aneesegeennentensenesneeseeaneeceeneaneanesnnsnsssesnsennsaness 
baat : REST FORMAT TEST 
te YLI TRACK FORMAT. 

eB0S ; HACE SURE NO ERRORS’ set "Behy Sectoks Bee Eno MAKE 
6804 i SURE DATA CHECK DOES NO 
FEDS se SELRARELA DLE AARA SHAE LALAA SEL S REEL ARE EAA RE RE RE RAZR SE ERKAHRAALELE 

021602 900004 tSTe6: SCOPE 
6808 O21604 012737 O00001 oD12b2 MOV #1,STIMES D0 ITERATION 
BBO 1612 po5990 CLR RO He RACK COUNTER 
6610 1614 O1 021622 001110 MOV #1$, SLPERR :SET LOCAL LOOP 
68l2 O21 iS: : 
6813 O21 104416 Testu t¢, : CLEAR SuBSYST M 
pels 021624 104003 ERROR *BAD INIT ERR 
6816 O21626 013737 OD1G26 001610 MOV DRVNUM,L.CS2  ;LOAD DRIVE NUMBER 
6817 Oe2l634 012737 000127 001600 MOV BURHEAD, L.CS1 LOAD WRITE HEADER 
BAS GBibse Gira GLEE oepy =P SGMEPL on (LD Bue ateeume™ “POP TOK coun 

NO “ : 

6820 O21654 Bisa aia 001602 MOV #-102,0.WC : WORD COUN 
b8el O21662 012737 O00312 001614 MOV #312,C.0CYL : CYLINDER 
6823 021670 004437 040776 R4, GENCOM ;BUI 
6824 021674 001200 1200 iBT TH BOE FLAGGED 
CBSE 021676 104417 sL REGS 
be? 1 104431 TWATIle sal FOR INTE 

1 104002 RROR TO SLOW/NOT ERRPLETE ERROR 
6830 021704 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
6831 021706 104004 ERROR 4 ;0R5, 6, 7 REPORT ALL ERRORS 
eee 3 021710 104415 SCOP1 sLOCAL LOOP TO 1$ 
Fase 021712 005700 TST RO iRO AT ZERO? 
6826 021714 901002 BNE 2$ O-EXIT 
6837 021716 O00S5200 INC RO + BUMP COUNTER 
6838 021720 000740 BR 1$ *L 
6839 021722 o0S000 2S: CLR RO :CLEAR SECTOR COUNTER 
ba40 021724 012737 021732 001110 MOV #113$,SLPERR | ;SET LOCAL LOOP ON ERROR 
6842 021732 113: 
6843 021732 104416 TSSINIT ;CLEAR SUBSYSTEM 
6844 021734 104003 ERROR 3 :BAD INIT ERROR 
6845 021736 3S: 
6846 021736 004437 034574 JSR R4, LRLOAD ;LOAD "L” REGS 
6847 O2i742e o0012 RDDATA :RDDATA 





RK&11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYLI 27( 1006) OS-OCT-76 09:17 PAGE 128 SEG 0128 
DZREKC.P11 O1-OCT-76 13:08 Te FORMAT TEST 
6848 621744 177400 -400 -400 WORDS 
6849 021746 O60604 IBUFF * TBUFF 1S BUFF ADDRESS 
6850 321750 000 -BYTE : :SECTOR 0 
sr 
ce fel oooste 312 ng, 312 
bees 021754 110037 001606 MOVB RO,L.DS sLOAD SECTOR COUNTER INTO DESIRED SECTOR 
6857 psi ate antl Tar ‘UAT FO FOR ms 
bee BS 1256 l ERR 2 :T0 1 Fon ft ERNPLETE ERROR 
6860 O21766 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
6861 021770 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
res 021772 104415 SCOP! sLOCAL LOOP TO 3$ ON ERROR 
6865 021774 022700 o00024 CMP #24, RO sLAST SECTOR READ? 
Pere pesos poeaea AOR SP SECTOR COUNTER 
es we oe 
6870 022006 005037 OD1b64 4g: CLR REFMT CLEAR REFORMAT SWITCH 
ears .SBTTL #*#*WRITE CHECK TESTS 
74 5 LERALARE RELA AERA LAL RAE RR ALLE RE LEE EEALEEE EERE REALL LE RELE REALE ERE 
6875 jATEST 67 WRITE-CHECK WITH NO ERROR 
pees te WRITE CYLINDER 312, TRACK 0, SECTOR O WITH A KNOWN PATTERN. 
6878 re DO A WRITE-CHECK OF 400 WORDS. MAKE SURE NO 
£879 it ERROR OCCURS. 
6881 He SESE AAKAAAE SARA LE RARE LA LALA SLSR AAA LE ARAAEAAL ALA RAARA ALA LA LAAEEE 
| 6882 022012 o00004 +167: SCOPE 
6883 022014 012737 ooo0be 001262 MOV #50. ,STIMES ;:D0 50. ITERATIONS 
6884 Oeef22 104416 TSSINIT :CLEAR SUBSYSTEM 
6885 Oe2024 104 ERROR 3 : BAD aaa ERROR 
Peeo 004437 034574 JSR RY, LRLOAD ;LOAD “L” REGS 
6888 pesnse 000123 WRDATA ; WROATA 
6889 022034 177400 -400 *=400 WORDS 
6890 022036 O62604 OBUFF 3 OBUFF IS BUFF ADDRESS 
6891 022040 000 “BYTE 0 >SECTOR 0 
bbe eH 000 "BYTE 0 TRACK O 
55504 000312 312 CYLINDER 312 
Fege 022044 004437 040776 ISR R4, GENCOM ; GENERATE DATA 
6896 O220S0 o00002 2 TTERN 2 
6897 022052 o00400 400 ‘too WORDS 
6899 022054 104417 TLOADRK sLOAD RK REGS 
6900 O22056 104430 TWATS6 inait FOR INTERRUPT 
6301 622060 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
022062 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 


RKE11 F 
DZR&KC. 


M10 
PI SERIOUS HGH TAAL AH Baadk PAE 1 


Five EoRLZV Ra 


RES SRRSRRS RESRS BSS 


S&F VS 


dg 


—— OO 
£ % 
Wpos 
o 


Z 


104004 
004437 034574 


000062 
000001 


040776 


034574 


001262 


ERROR 4 
JSR R4Y, LRLOAD 
zie 


OBUFE 
:BvIE = 
THASe 


ERROR 


MOV #BITO,RO 
TSSINIT 

ERR 3 

ISR R4, GENCOM 
400 

JSR R4, LRLOAD 
WRDATA 

-400 

OBUFF 

-BYTE O 

‘BYTE O 

3le 

TLOADRK 

TWAT96 

ERROR 2 


;OR S, 6, 7, 10 ;REPORT ALL ERRORS 


;LOAD “L” REGS 


:-400 WORDS 
SOBUFF IS BUFF ADDRESS 
CTOR 0 


SEG 0129 
; TRACK O 
;CYLINDER 312 
REGS 
thai FO FOR RENTERRUPT 


;T0 SLOW/NOT COMPLETE ERROR 


K OPERATION FOR ANY ERRORS 
? is E REPORT ALL ERRORS 


ERROR 4 ;ORS 
supeeaseasenneneeiaeaabeshenbennelaseaseartanssnseaneyeesansens 


;RTEST 70 CHECK ERROR (PART 1) 

1 WRITE CYLINDER 312, TRACK 0, SECTOR O WITH ALL ZEROES. 
1 WRITE C YLINDER Sle TRACK 0, SECTOR O WITH SAME 
tx DATA EXCEPT WORD 1 HAS’ ONE OF THE FOLLOWING 

ii CONFIGURATIONS: 

:% 000001 oo0020 o00400 o10000 

;* oo0002 00040 o01000 sep000 

: 004 000100 o02000 o40000 

if oo00dico 900200 100000 

+ MAKE SURE WRITE CHECK ERROR SET FOR EACH 

1 OF THE CONFIGURATIONS AND THAT THE BUS ADDRESS 

i AND WORD COUNT IS CORRECT. 

} 


E55 all t-t-J-)-lalaelalelalalalaiababaeleiaiaialababableieiaiaiaiabeeieieisisiaieieeisieitialsisiseieisiaieisioi 
SCOPE 
MOV #50. ,STIMES 


-DO0 SO. ITERATIONS 
iSET LO ORDER BIT IN RO FOR 
*CAUSING WRITE CHECK ERROR 
“CLEAR SUBSYSTEM 

*BAD INIT 

GENERATE DATA, ALL 0’S 


;LOAD “L" REGS 
; RDA TA 

400 WORDS 
!OBUFF IS BUFF ADDRESS 
;SECTOR 0 


; TRACK 0 
;CYLINDER 312 


;LOAD RK 


REGS 
;WAIT FOR INTERRUPT 
:T0 SLOW/NOT COMPLETE ERROR 


1 
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2 Bei 78 


7014 320 
701S Oee3eb 


184084 


104421 
1 
2737 Oee236 001110 
063024 


004437 034574 
31 


ahi 001544 063026 


37 
012737 052734 001450 
012737 063026 001202 


28 ee we wees wees 


WRITE CHECK ERROR (PART 1) 


TCHKOP -CHECK OPERATION FOR ANY ERRORS 
E 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 

JI oo; o 

15k = R4, LRLOAD ih a: ac REGS 

-40 WORDS 

OBUFF ae IS BUFF ADDRESS 

.BYTE O :SECTOR O 

“BYTE 0 TRACK O 

312 :CYLINDER 312 

TLOADRK ;LOAD RK REGS 

TWAT32 sHAIT FOR INTERRUPT 

ERROR 2 ?TO SLOW/NC( COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


SCOP1 ;LOCAL LOOP ON WRITE CHECK 
MOV #1$, SLPERR SET LOC 

MOV RO,OBUFF+220 ;CAUSE ERROR oir IN BUFFER 
TSSINIT :CLEAR SUBSYSTEM 

ERROR 3 :BAD INIT ERROR 

JSR R4, LRLOAD ?LOAD "L” RE 

WRTC ; WRT CHK 

-400 400 WORDS 

OBUFF : OBUFF IS BUFF ADDRESS 

-BYTE SECTOR O 

"BYTE 0 0 

312 CYLINDER 312 

TLOADRK ;LOAD RK REGS 

TWAT32 *WAIT FOR INTERRUPT 

ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKHE ;CHECK OPERATION WITH EXPECTED ERROR 
WCKERR ;WRITE CHECK ERROR 

ERROR 4; OR S,6,7 ;REPORT ALL DISCREPANCIES 

SCOP1 ;LOCAL LOOP ON ERROR TO 1$ 


NOTE: THE WORD COUNT AND BUS ADDRESS CAN BE EITHER OF TWO 
VALUES AND BE CORRECT. THE ae IS CAUSED BY WHEN THE 
WCE OCCURRED. IF IT OF CURRED ON THE FIRST WORD OF A DOUBLE 
NPR CYCLE, We AND BA WILL BE ONE PAST + E THE ER “* ACTUALLY 
OCCURRED. IF WCE 0 OCCURRED ON A SINGLE NPR CYCLE OR THE LAST 
NPR CYCLE OF A DOUBLE CYCLE, WC AND BA CONTENTS REFLECT THE 
ACTUAL WORD WHERE THE ERROR’ WAS. 


CMP T.BA, SOBUFF+222 ;CHECK BA HALT AT PROPER PLACE 
BEQ 2g ; YES-SKIP 

BHI 6$ j1F TO HI - SKIP 

MOV #£M11,EM1ON INCORRECT BA” 

MOY sOBUFF +222, speci ;G00D VALUE 


‘ 
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is Beis G13 PR 
O223S0 i04010 


3 thts o01s4e 
Se Ee cee 
Bssanq Bisse, Aa redd 


001S44 
0Se734 


063030 
013737 OO1S44 
Ole737 O47e41 
104010 


001542 


gee flere Heel 


OeeSi2@ 013737 001542 
G22S20 


Stee 
00D 


O2zeSe4 032700 100000 


ER 


022536 000004 


aE eee eee 


te 


—_, ™!, ~ — = = as = “e 
macy 27 (4006) OS-0CT-76 09: 7, PAGE 131 SEG 0132 
170 WRITE CHECK ERROR (PART 1 
MOV 7.88, SREG11 :BAD VALUE 
MOV LOBEAST 010A ere YE CHECK ABORTED WITH WCE” 
ERROR 10 
2s: C T.WC, 8-267 sCHECK WORD COUNT AT CORRECT VALUE 
BEQ 3$ YES-SKIP 
MOV #—M10, EMION S"INCORRECT WC" 
MOV SOPERGI OFO1OA ;"WRITE CHECK ABORTED WITH WCE” 
MOV 8-267,$REGIO ;G00D VALUE 
MOV T.WC, $REGII ERROR VALUE 
frag 
sEXIT 
6S: cr T.BA, SOBUFF+224 iE IF 88 AT HI SIDE 
v M11, EM10N SET ME 
MOV sOBUFF +224 srecid 6000 VAL 
T.BA, SREG i OR 
MOV sOPER41, DFOLOA ISURITE CHECK ABORTED WITH WCE™ 
ERROR 10 
73: cmp T.WC, 8-266 sTEST IF WORD COUNT AT HI SIDE 
BEG 3$ YES - SKIP 
MOV 8—M10, EM1ON :SET MESSAGE 
MOV sOPER4 010A :"WC ABORTED WITH WCE™ 
MOV 8-266, SREGI : SALLE 
MOV T.WC, $REG11 SERROR VALUE 
ERROR 10 
2S: SCOP! sLOCAL LOOP ON ERROR TO 1S 
BIT #8I1T15,R0 ;BIT 15 SET? 
SNE 4§ : YES-EXIT 
ASL RO ;SHIFT ERROR BIT 
BR 1$ LOOP 
s ORI sat eh cients FRSSSFSSRESESRE 
TEST 7] WRITE CHECK ERROR (PART 2) 
3% 
:# WRITE CYLINDER 312 TRACK 0 SECTOR 0 WITH 17777 
;# IN WORDS. WRI Ck CYLINDER 312, TRACK 0, 
‘i SECTOR OR O WIT WITH T eeerA EXCEPT WORD 120 HAS 
i ING CONFIGURATIONS: 
Ene ee ae err 
+ ree | 
i reese 173777 13 
1 MAKE SURE WRITE CHECK ERROR SET FOR EACH 
:# OF THE CONFIGURATIONS AND THAT THE BUS ADDRESS 
is AND WORD COUNT IS CORRECT. 
1° mgt 2" cman marci Ne rye io: MP ame NaN ta ic te 
+4171: SCOPE 


z 


11 FUNCTIONAL CONTROLLER DIAGNOSTIC ACYL 27(1006) OS-OCT-76 09:17 PAGE 132 SEG 0122 
DZRSKC.P11 01-OCT-76 13:08 T71 WRITE CHECK ERROR (Peet 2) 
40 012737 001262 MOV .  STIMES RATIONS 
rors BeSeug gieeas MOV Mires es + Oe Re Fo CAUSING WRITE CHECK ERROR 
7075 104416 TSSINIT LEAR YST 
fire Seren eo 2, Be a . 
040776 ce , GENCOM 
7078 D22Sbe ? 
7079 O22S564 00400 400 
708i Qeeees pow? 034574 JSR R4, LRLOAD ne au" REGS 
123 WROATA ; WROATA 
7083 77400 -400 3-400 WORDS 
7084 be Seas OBUFF : IS BUFF ADDRESS 
708S 000 .BYTE O ;SECTOR 0 
7086 022601 000 "BYTE TRACK O 
G2ee602 000312 312 ?CYLINDER 312 
oes 022604 104417 TLOADRK sLOAD RK REGS 
7090 O22606 104430 TWAT tart FOR INTERRUPT 
7091 22610 104002 :T0 SLOW/NOT COMPLETE ERROR 
Toss l2 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
14 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
3 02261 034574 JSR R4, LRLOAD LOAD “L" REGS 
obey Sesees boots, ie STRTCHK 
7098 O22624 177400 -400 WORDS 
7099 O22626 062604 OBUFF : OBUFF IS BUFF ADDRESS 
7100 022630 900 “BY 0 :SECTOR O 
7101 22631 600 "BYTE OO > TRACK O 
7108 022632 900312 3le :CYLINDER 312 
71 104417 TLOADRK RK RE 
bite feces! itiad, r9ee8 rs FOR INTERRUPT 
at 022640 104002 ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 
7108 O22642 104421 TCHKOP - CHECK TION FOR ANY ERRORS 
7108 022644 iSuos4 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
7111 Oe2e% 104415 SCOPL “LOCAL LOOP TO START OF TEST 
file 022650 012737 O22656 001110 MOV #1$, SLPERR ;SET LOCAL LOOP 
rita S22656 019037 063024 1S: NOV et RO, OBUFF +220 ice ali 38D IN OBUFF TO CAUSE WCE 
711g 022664 tbyoes 3 NET ERROR 
118 Oe2beE o04437 034574 JSR R4, LRLOAD 1. “L” REGS 
118 22672 000131 WRT CHK ;MRTCHK 
120 O22674 177400 -400 -400 WORDS 
l2il 22676 62604 OBUFF :OBUFF IS BUFF ADDRESS 
lee 022700 900 “BYTE 0 i SEC TOR 0 
l23 022701 000 “BY 0 RACK D 
ie 022702 o0dz1e2 3le Py: R 312 
126 022704 104417 . TLOADRK sLOAD RK REGS 
127 022706 104424 TWAT 32 :WAIT FOR INTERRUPT 
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DZRGKC.P11 Br Set aoe 13:08 Unite CHERR ERROR (PART 2) 

7128 022710 104002 ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 

71 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
ra) BETIG iBes 

gi 022716 o00004 WCKERR ;WRITE CHECK ERROR 

ries Bgs7e0 raivan Peror 4; OR S,6,7 sREPORT ALL DISCREPANCIES 

siz n22724 104415 SCOP! sLOCAL LOOP TO 1S 

71 ; TE: S CAN ITHER 

is ;—Uillds CESSDA” Si NG ERE OS ESET RS 
ot ner ec Bro! ba is Ore PaSy WERE WORD. OF a SOULE 
zie : EE PESTS Mt a OR THE LAST 
714 : eae wsict A REFLECT THE 
zi : ACTUAL WORD WHERE 

7} 3727 OO1S44 063026 CMP T.BA, SOBUFF+222 ;CHECK BA HALT AT PROPER PLACE 
He Bee pie Bg 8 - 

7149 psss3e po3535 052734 001450 MOV - soap ste "INCORRECT BA” 

Fiat Geeecu BiS73> Berece Botsos ROY SOBLFE See?  SREGIO. 56000 VALLE 

7152 Oe2762 012737 057662 MOV tba, Sree] rel on "WRITE CHECK ABORTED WITH WCE™ 
7153 022776 104010 ERROR 10 

7155 022772 001842 177511 28: CMP T.WC, 8-267 ;CHECK WORD COUNT AT CORRECT VALUE 
7156 023000 O01460 BEQ 3$ :YES-SKIP 

7157 Oe3002e O01 001450 MOV #£M10, EM1ON "INCORRECT WC” 

715@ 023010 O1 057662 MOV BOPERGI DFO1OA "WRITE CHECK ABORTED WITH WCE™ 
fs fees Glee toed Bien = YP arene? (Ett 

7161 pes0e3 toaai0 ERROR 10’ 

site 023034 2 BR 3$ EXIT 

7164 022036 023727 063030 &S: MP 1.BA, SOBUFF+224 ;TEST IF BA AT HI SIDE 

fies Gems OOM wey RB emmy eES vee 

5ies pSSbe Biss tie MOV Hage srecid VALUE 

7168 O23062 013737 OC1S44 001204 MOV T.BA i ; VALUE 

7166 023070 012737 047241 057662 MOV #OPER41,DFOLOA "WRITE CHECK ABORTED WITH WCE” 
717 023076 104010 ERROR 10 

7172 022100 023727 oOOISYe 177512 7S: CMP T.WC, 8-266 sTEST IF WORD COUNT AT HI SIDE 
riya DSstGB Bieta? 052707 001450 PFO Baio. emon -:ST MESSAGE 

7175 023116 012737 047241 MOV SOPER4I DFOLOA :"WC ABORTED WITH WCE™ 

7176 O23124% 012737 177512 O01202 MOV $-266,$REGIO—; 

7177 Oe2l32 013737 Oo1s42 001204 MOV T.WC, $REG11 ERROR VALUE 

7178 023146 104010 ERROR 10 

7180 023142 104415 3S: SCOP 

7182 023144 032700 100000 BIT #81T15,RO ;BIT 15 SET? (ALL PATTERNS TESTED) 


7183 Oe31S0 001002 BNE 4§ ; YES-EXIT 


| 
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7184 


4 
71598 


SERS RSS sis 


rrdrdndrdrordronind 
a ee 
WOnNMUSWwue-O 


RASS USN 


rnin 
BBS 


023152 
023154 


023156 


Ue SCcU 
O232e4 
023226 
023230 


023232 


01-OCT-76 
006300 
000640 


gh emma 


2 te PS ea aoe eae PAGE 134 SEG 0134 


ASL RO ;SHIFT FOR NEXT TEST 
BR 1$ ;LOOP 


4 
::ieesnsnesuensssesusessssennessseesnenazessseeanecanesesssestss 
T 72 WRITE CHECK OF PARTIAL SECTOR 


WRITE CYLINDER 312 ac TRACK 0 SECTOR WITH A KNOWN 
CONFIGURATIONS. WRITE COMMAND OF 


UH Rea as et A 


CHECK ERROR DOES 
* 
- LELEELESESARESESEEREERE EEE EE EE EEE EEE ELEL ELE REASERE SEES SESE SEES 


+é172 
#S0.,STIMES | ;;D0 50. ITERATIONS 


Ga 5 SPE 


. 


JSR R4, GENCOM ies DATA 
400 :400 WORDS 
ISR R4, LRLOAD ;LOAD “L” REGS 
TA WRDATA 
OBUFF sO I BUFF ADDRESS 
-BYTE 0 OE OR 3 
"BYTE 0 TRACK O 
312 :CYLINDER 312 
TLOADRK sLOAD RK REGS 
TWAT9G *WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP 


“CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


CLR OBUFF +222 


JSR R4Y, LRLOAD ;LOAD “L™ REGS 

WRT CHK ; WRTCHK 

-110 110 WORDS 

OBUFF SeuFr IS BUFF ADDRESS 

-BY 0 CTOR_O 

BYTE 0 K Q 

3le 2 a 312 

TLOADRK ;LOAD RK REGS 

TWAT32 ;WAIT FOR INTERRUP 

ERROR 2 ;T0 SLOW/NOT EONPLETE ERROR 


TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


-SBTTL ##MAXIMUM DATA TRANSFER AND CONTROLLER TIME OUT 


rr 
3 
of 
S23 
Pr 

in 

rs) 


LIA Te 


n 
R 
: 
Tw 


non Bete TREN -n, w, Billa PEA out - 


ha .6}6~6 ~ RMN A eet) 


See ee Cees ee CF ee et CH ee 4 OH ee ee ee oe ee 


ié 


Te comecnaoeateeenas A 
m 


T 73 MAXIMUM DATA TRANSFER (PAR 


IN THE FIRST PASS OF THE PROGRAM S OF 
THE FIRST 4 CYLINDERS ARE UBITTEN. THIS. is; DONE T0 

ZERO OUT THE FIRST 256 SECTORS OF THE DISK WITH 
etary rete DATA oP RARIMUR BATA TRARETER 2e0000 LORDS 
Hae" EBPSE or REP nti nets COTES 


EACH SECTOR eto MAKE ore rn WAS a tone. 


NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT 
IN THE FIRST 2S6 SECTORS ON THE PACK. 


PR a ie caer RA 


MES ; 
BIT SPENT BPTFLG Heer ar First pa PASS SWITCH SET 
BNE EY ORMAT 


YES - SKIP 

CLRB 21 CLEAR ADDRESS POINTERS 
CLR 2s 

JSR R4, LRLOAD sLOAD “L” REGISTERS 

; AD sR TE HEADER 
OBUFF :OBUFF IS BUFF ADDRESS 
-BYTE 0 ;SECTOR 0 

"BY 6 TRACK ADDRESS (VARIABLE) 
0 CYLINDER O (VARIABLE) 
ISR R4, GENCOM :GO GENERATE HEADERS 

1200 *WITH BAD SECTOR ERRORS 
TLOADRK sLOAD RK REGS 

TWAT112 iart FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
TCHKOP j CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 :REPORT ALL ERRORS 
CMPBs«21$, #2 ;TEST IF LAST TRACK 
BEG 23$ YES - SKIP 

INCB 21S 'ELSE BUMP TRACK 
BR 20$ * LOOP 
CLRE 3s 21S ;CLEAR TRACK POINTER 
CHP ge, 03 ;TEST IF LAST CYLINDER WRITTEN 
INC 225 ELSE “BUMP CYLINDER 
BR 20S : LOOP 


a 


ee 


Berti yisncie tat 
oy 


sess soe 
WONMUW £utue- 


“I 
Ww 


ia 
fofore 
BS 


i 


PRI ese sae SASERER SR INS 


7345 023602 
3606 


i Bee 


i 


Bq 


feces eo 22 


~~ 


3:08 


Ce3426 O01110 24S: 
000400 is 


S$: 


Gll 
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01-OCT-76 173 A TRANSFER 


(PART 1) 

MOV 18, SLPERR sSET LOCAL LOOP ON ERROR 

MOV #400, R3 :SET COUNT FOR SECTOR CLEARING 
CLEAR SUBSYSTEN 


ERROR 


TSSINIT 
;BAD INIT 
fre - REGS 


J R4, LRLOAD 
TA 


-400 iO 
Gel ams 


BYTE 0 
+ AL TNOER 0 7 

TLOADRK sLOAD RK REGS 

TWATIS9 WAIT FOR INTERRUPT 

ERROR 2 TO SLOW/NOT COMPLETE ERROR 

TCHKOP -CHECK OPERATION FOR ANY ERRORS 

ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
; TO 1S 

Bee; og plage 

Nov a-4 ARecRes. fan : 

CLR I os AI ps INGERRUPT FLAG 

MOV DRVNUM, RKCS2(R2) -SET DRIVE NUMBER 

MOV #WRDATA,RKCS1(R2) ;D0 WRITE DATA 

TWATYB ;WAIT FOR INTERRUPT 

ERROR 2 :TO SLOW/NOT COMPLETE ERROR 

BIT 8BSE,RKER(R2)  ;BAD SECTOR ERROR? 

BEQ 3$ :NO- SKIP 

BIT SBSERPT,OPTFLG ;TEST IF BSE TO MANY HAS BEEN REPORTED 

BNE c$ ;YES - IP 

BIS #BSERPT, OPTFLG 

MOV 8OPRO17;EMIN iE NESSA 

ERROR 1 IRS see" SECTOR NOT BSE FREE™ 

14$ GO TO EXIT 

CHECK FOR ANY OTHER ERRORS” 

TCHKOP : CHECK OPERATION. FOR ANY ERRORS 

RROR 4 ;0RS, 6, 7, io - REPOR TALL ER RORS 

OP] sLOCAL LOOP TO I$ (RESTART SECTOR CLEAR) 

DEC R3 sDECREMENT COUNT 

BNE 25 LOOP IF NOT ZERO 

JSR RY, LRLOAD ; LOAD "L” REGS 

SEEK ; SEEK 

: if WORDS F ADDRESS 

“BYTE 0 SclfoR 0 

"BYTE 0 : TRACK 

0 t VLINDER 0 


~~) 


SEG 0136 
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TBR TEER AOMOSTIC BBGYD AAXTROn DRA TRANSFER (PART aS 


? 
= 
“ 


ag 


? 
§ 


R611 
-Pll 

732 
7383 

4 
738 
7389 
Peet 


ag 


NI 
£ 


i 


: 
é 


BB 
ws 


SISSee 


aul Haat 


BS383 


s 


i 


: 


iNet FoR INT 
TO SLOW T EORBLETE ERROR 
IGE OPERATION FOR | FOR ANY ERRORS 
. T ALL EAR Nes 


sHATT FOR SECOND INTERRUPT 
1 acelin 


PATTERN 6, 1ST WORD REPEATED 
: 400 fioRDS 


tHAIT FOR SECOND INTERRUPT 


;ELSE REPORT TO SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION FOR ANY ERRORS 
ALL ERRORS 


:0R S, 6, 7, 10 ;REPORT 


—_— fp 


Z 


S 


oO 
= 


88 


; INTERNAL LOOP ON ERROR TO 4S 
;SET COUNTER FOR READ-COMPARE LOOP 
; CLEAR SECTOR AND TRACK VALUES 
;CLEAR CYL VALUE 

;SET ey LOOP ON ERROR 


RR 
#BAI,L.CS2 : CLEAR 


? 
SS 


33 


gugugaaaasgeenees 
ae 


3 


$ 


we 
baa 


— 
N 


nu 
Be 


+ 
8 


CLEAR SUBSYSTEM 
;BAD_ INIT ERROR 
40 Q ORDS 

ER 
iSEcTON Cv BRTABLE) 
:CYL (VARIABLE 
:LOAD RK 


REGS 
;WAIT FOR INTERRUPT 
:T0 SLOW/NOT COMPLETE ERROR 
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aos 64008 


01-OCT-76 


104421 
104004 





TCHKOP 


I11 
SEBS a AL Fda 





7. PAGE 138 


T 1) 


;CHECK OPERATION FOR ANY ERRORS 
ERRORS 


ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL 


SCOP 1 


JSR , 
aa 

oe 138 
ERROR 15S 











;LOCAL LOOP ON ERROR TO 8$ 
;COMPARE DATA 


NO MI SCORPARE-EX1T LOOP 
REPORT FIRST ERROR 


;GET ERROR LIMIT 
eer co 
OW FINUE “pat A COMPARE 


;NO_MORE pons - EXIT 
sREPORT NEXT ERROR 


;LOCAL LOOP TO 8$ 


;DEC_READ LOOP COUNT 
IF ZERO-EXIT 


;BUMP SECTOR 
aE INISHED WITH TRACK? 


;CLEAR SECTOR 
BUMP TRACK 
aE INISHED WITH CYLINDER? 


;CLEAR TRACK 
BUMP CYL. 
LOOP 


4S: 
ircct 74 EXIM DATA TRUGFER (PART 2) 


ZERO OUT FIRST 256 SECTORS OF THE re arm 


TO oN 


DATA TRANSFER 
MAKE SURE CONTROLLER TIME 


CHECK CYLINDER ADDRESS 


BUS ADDRESS AND WORD COUNT. 
SEEK TO ¢ TO CYLINDER 632. see ISSUE . WRITE CHECK 


ERROR SETS. 


NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT 
IN THE FIRST 2S6 SECTORS ON THE PACK. 


+ EEEEEERESERER ERE RERE LALLA ES SERRE EERE AE AER ARERR EREREERAER ELE 
;;00 S ITERATIONS 





001624 MOV — ERRLMT, RO 
64S: DEC oe 
040776 FE8 4, GENCOM 
40000 
BR 65S 
ERROR 16 
bus 
&S$: 
138:  SCOPI 
DEC sé 
BEG 14S 
023764 INCB 108 
023764 00026 CMPB «10, #26 
BNE 95 
023764 CLRB «10S 
023765 INCB 6118 
023765 000003 CMPB «118,83 
BNE 95 
023765 CLRB il 
023766 INC 125 
BR 95 rE 
;ATEST 74 MAXIMUM DATA TRANSFER (PART 
i 
:# 200000 TE. SEEK 
ii ISSUE A WRITE OF MAXIMUM 
; OUT IS NOT SET. 
ii DISK ADDRESS 
+ 
;* 
28 
5% 
;# 
+6774: SCOPE 
oo000s oco12¢e2 MOV #5, STIMES ; 
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DZR&KC.P11 O1-O0CT-73 13:08 TRANSFER (PART 2) 
ISSINIT ; LEAR YSTEM 
page BEGHE2 NAS ve 3 ‘ww. {BAD INET ERROR 
7466 024134 012700 o00620 MOV #400. ,RO on 4 GSET COUNT FOR INTERRUPT: WAIT 
Fibs 024140 005037 O62604 CLR ee oe 
024144 004437 034574 JSR R4, LRLOAD LOAD “L" REGS - 
7470 024150 000123 WROATA sHROBTA 
cate peated Beeeoe ei i) et ; BUFF ADDRESS 
oao5 Gees 000 BYTE O + OPFOR 2 
7474 O24] 000 BYTE 0 TRACK O 
7475 024160 000000 0 :CYLINDER 0 
7476 Oe4lb2 052737 o00020 001610 BIS #BAI,L.cS2 SET BAI 
7477 be4170 1041? TLOADRK "LOAD RK REGS 
7478 172 104434 1S: TWATISS SWAIT FOR INTERRUPT 
7479 024174 000401 BR 2s :NO_INTERRUPT-SKIP 
ogo 024176 O000403 BR 3$ : INTERRUPT-SKIP 
7482 024200 005300 2s: DEC RO ;DEC_WAIT COUNTER 
7483 Oe4202 001373 1$ -L 
ries Oe4204 104002 ERROR 2 '70 SLOW/NOT COMPLETE ERROR 
7486 o00200 000014 3$: BIT #BSE,RKER(R2)  ;DID BSE SET 
a 024214 OO1415 BEQ 4g :NO-SKIP 
7489 O24216 032737 O00200 OD16SE BIT #ESERPT,OPTFLG ; TEST IF TQ MANY BAD SECTORS REPORTED 
7490 Oe4224 001007 BNE 1 S - SKIP 
7481 Oe4226 052737 000200 o016S6 BIS #BSERPT, OPTFLG CET FLAG 
024234 012737 051362 001360 MOV 8OPRO17/EMIN SET MESSAGE 
7493 DevieNe 304001 ERROR 1 i ceLRST 256 SECTORS NOT BSE FREE” 
a 137 024576 128: MP 11 ‘EXIT 
7496 024250 4S: 
024250 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
p38 De4252 104004 ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
7500 024254 004437 034574 JSR R4, LRLOAD sLOAD "L” REGS 
7501 O24260 000117 SEEK : 
7502 Oe4 000000 0 0 WORDS 
7503 Oe4264 900000 0 :0 IS BUFF ADDRESS 
7504 O24 000 “BYTE 0 SECTOR O 
7505 Oe4e6 000 "BYTE TRACK O 
7506 Oe4 000632 632 *CYLINDER 632 
es 024272 104417 TLOADE ;LOAD RK REGS 
7509 024274 104423 TWATIE WAIT FOR INTERRUPT 
7510 Oe4276 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
rei 024300 005037 o01662 CLR INTSET ?CLEAR INTERRUPT FLAG 
7513 024204 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ei 024306 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
7516 024310 104427 TWATBO ;WAIT FOR 2ND INTERRUPT 
7517 024312 104002 ERROR 2 
7518 024314 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 


SEG 0139 








RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC pacval tte 
DZREKC.P11 


Prana eA 


Rune 


01-OCT-76 13:08 
C24316 104004 


ee 
ik 
14434 
104002 
Bevsue | 1Ds0o4 
Be43e4 Bois SOS" 


024356 000000 

Bouse | OOPkR 

024 008 

024364 000000 

Bat ee wey 

024400 oooced 001610 

O24406 104417 

024410 104434 SS: 
: 

024416 ; 6S: 

Beuuse | (o4aGe 

024424 7$: 

Soe. 1a 

024430 tae td 034574 

Beadse 890000 

024440 000000 

024442 000 

024443 000 

Ce4444 000632 

Ce4446 104417 

Oe44S0 104423 

Ce44Se 104002 

024454 005037 001662 


foro 
ie 
gh 


ERROR 4 
SR R4, LRLOAD 
i 


“BE 3 
0 
FLganR 


ERROR 2 
TCHKOP 
ERROR 4 


MOV #135143, OBUFF 
MOV #401. 
BIS #BA1...CSe2 


TLOADRK 
TWAT1S9 


OR e 
CLR INTSET 


TCHKOP 
ERROR 4 


K11 


SS broiler BE" 


;0R 5S, 6, 7 ;REPORT ALL ERRORS 


ci REGS 
; fo ADDRESS 
; CYLINDER 0 


tHATY For TNTERRUP 


:T0 SLOW/NOT COMPLETE ERROR 
; CHECK wat ANY ERRORS 


;0R S, 6, 7 ;REPORT ALL ERR 


J aR R4, LRLOAD 
TA 


bea” 


Bice IS BUFF ADDRESS 


s ONCINDER 0 
;SET WORD FOR OUTPUT 
:SET COUNT FOR INTERRUPT WAIT 
:SET BUS ADDRESS INC INHIBIT 
sLOAD RK REGS 
WAIT FOR INTERRUPT 
NO_INTERRUPT-BRANCH 
: INTERRUPT-BRANCH 
DEC WAIT COUNT 
300 F NOT ZERO 
0 OW ANOT COMPLETE ERROR 
“CHECK OPERATION FOR ANY ERRORS 
6, 7, lO; REPORT ALL ERRORS 
sLORD “L " REGS 


WORDS 
:0 IS BUFF ADDRESS 
;SECTOR O 

; TRACK 0 

i CYLINDER 632 

;LOAD RK REGS 

;WAIT FOR INTERRUPT 

;TO SLOW/NOT COMPLETE ERROR 
CLEAR INTERRUPT FLAG 


;CHECK OPERATION FOR ANY ERRORS 


;0R 5, 6, 7 ;REPORT ALL ERRORS 


SEG 9140 


RK 


Bee RReR Res 


ca a 
—OWONMTUW CWO 


RRRORERR 


o 
© 


ret 


re 


104004 





034574 


034574 


000020 001610 
000621 


o00c0s 001262 


10 


+ FO FRC ec OR 2c 


eee ee ee ee es oe ee ee efor 


611 FUNCTIONAL coro DIAGNOSTIC Ale 27( 1006) 
Pll 01-OCT-76 13:08 


JSR 
WRTCHK 
OBUFF 

. BYTE 

. BYTE 


BIs 
MOV 


S: 
OP 
ERROR 


$: 
s KELLER LRA AAA RAAAL ELLA AA LERLLLRELE RE LALAAL LEAL LLL ALLEL LELALELE 


{ATEST 75 
SEEK TO CYLINDER 632. 
WAIT FOR SECOND INTERR 
OF CYLINDER 0, 
OUT SETS. 


s RLRLRKERALERE LALLA RLS AA KARE LE EHRALAA LESS LALARELAELERELEARERLREE 


té175; 


TSSINIT 


Lil 


OS-OCT-76 09:17 PAGE 141 
MAXIMUM DATA TRANSFER (PART 2) 


4 ;ORS, 6, 7 


R4Y, LRLOAD 


oo 


4 ;OR S, 6, 7 


R4¥, LRLOAD 


0 
0 


#BAI,L.CS2 


#401. ,R0 


;WAIT FOR SECOND INIT 


Bea Ry Th Fon ay ERRORS 


REPORT ALL ERROR 
toi REGS 
Pay ADDRESS 


sCYLINOER 0 
;LOAD RK REGS 
att FOR INTERRUPT 
0 SLOW/NOT COMPLETE ERROR 


CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


;LOAD “L” REGS 
: WRTCHK 


0 WORDS 
;OBUFF IS BUFF ADDRESS 
i SECT OR 0 


TRACK . 

CYLINDER O 

;SET BAI FLAG 

SET WAIT COUNT 
RK_REGS 

ina FOR INTERRUPT 

NO_INTERRUPT-SKIP 
} INTERRUPT -SKIP 
;DEC WAIT COUNT 


;NOT_ZERO-LOOP 
:T0 SLOW/NOT COMPLETE ERROR 


CHECK OPERATION oe ae ERRORS 


4 ;OR 5, 6, 7, ic : REPORT ALL ERR 


CONTROLLER TIME OUT 


aS. ,STIMES 


TRACK 0. 


SSUE A RECALIBRATE AND DO NOT 
fae, ISSUE A READ HEADER 


E SURE CONTROLLER TIME 


ITERATIONS 


Pe aR SUBSYSTEM 


SEG C141 


mn i a ne 


RKE11 F 
DZR&KC. 


TIONAL CONTROL 
ll 01-OCT-76 1 

C24610 104003 
024612 lage 034574 
Oe4éee 000000 
Bee 
Oe46e6 000632 
ee iu 
024634 104002 
024636 104421 
024640 1b40o4 

4 
Bee Ty coe 
Se ip 
Oe46S4 104004 
O246S6 004437 034574 
Oe4é6e 000105 
Oe4664 000000 
024666 000000 
024670 oe 
024671 
Oe467e 000000 
024674 104417 
024676 104423 
024700 104002 
024702 104421 
024704 104004 
eS ete 034574 

714 B0000 
024716 000000 
024720 000 
024721 000 
Oe47e2e 000000 
024724 104417 
De47e6 104423 
024730 104002 
024732 004437 034574 
024736 000125 
024740 000000 
024742 000000 
024744 000 
024745 000 


TIME OUT 
ERROR 3 
JSR R4, LRLOAD 
EK 


Be 
we 


ERROR 


TCHKOP 
ERROR 4 ;0R S, 6, 7 


LR INTSET 


ERROR 4 ;0R S, 6, 7 
JSR R4, LRLOAD 


TCHKOP 
ERROR 4 ;0RS, 6, 7 


JSR R4, LRLOAD 
a. 


JSR R4Y, LRLOAD 
RDHEAD 


tea WOEv A FeO ER Tie our 09:17 PAGE 142 


;BAD INIT ERROR 
;LOAD “L” REGS 
; SEEK 


WORDS 
:0 iS BUFF ADDRESS 


IAT? FOR INTERRUPT 


:T0 SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


510 Ou ON FOR ANY RERRORS 
: REPORT ALL ERRORS 


;LOAD “L” REGS 

; CLEAR 

;0 WORDS 

01S BUFF ADDRESS 
SECTOR O 

;TRACK O 

;CYLINDER 0 


;LOAD RK REGS 
sWAIT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR . 


;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


;LOAD “L” REGS 
jREC AL 


0 WORDS 
0 IS BUFF ADDRESS - 
SECTOR 0 
TRACK O 
;CYLINDER O 


;LOAD RK REGS 
WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 


;LOAD “L” REGS 
; RDHEAD 

;0 WORDS 

;0 IS BUFF ADDRESS 
;SECTOR O 


; TRACK 


SEG Ol4e 


i ee ee ee eee 
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DZRGKC.P11 O1-OCT-76 13:08 T75 ROLLER TIME OUT 
7688 24746 o00000 0 sCYLINDER 0 
7690 024750 104417 TLOADRK RK REGS 
7691 024752 104436 TuaTes TAIT F OR IN TERR 
sae 024754 104002 ERR 2 TO SLOW/NOT COM Pete ERROR 
7694 O24756 104422 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
7635 ge4760 po90000 9 
76 BS45e4 uae CTOERR ;CONTROLLER TIME OUT 
7698 be'766 104004 RROR - 4; OR 5,6,7 ‘REPORT ANY DISCREPANCIES 
7699 104416 TSSINIT ?CLEAR SUBSYSTEM 
Foo) Geured bea? 0016 a toy Fg 
Pop Bedaas BUSES SO886 conoon at, THTSET pe) OE TN ENABLE 
7703 0250068 104437 . TWAT8S : WAIT THOR SECOND INT 
7704 O25010 104002 ERROR 2 
7705 f 
7706 ; 
77 
555g .SBTTL #ERRORS DURING DATA TRANSFER 
aA . a 
7711 : © LELEKL AE RE KEELE LER ELE RL LHL ARES KALE LAR RL HK EK RAL ELAR ERLE L ELE AERE 
at ;ATEST 76 LIMIT DETECT ON DATA TRANSFE 
7714 1 # ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. ISSUE 
7715 # A SEEK TO CYLINDER © WITH BAD PARITY. ISSUE A DRIVE 
7716 ti CLEAR. ISSUE A WRITE DATA OF 4OO WORDS TO CYLINDER 1, 
7717 i TRACK 0. HEAD O. SEEK INCOMPLETE BECAUSE OF OUTER 
7718 5% LIMIT SHOULD BE THE ONLY 
7719 PPETETTTSETETETSTESTIETETITETTTTEST TT TTT tte ttt ttt ttt tite 

12 oo0004 +6776: SC 
sel 025014 012737 oo0012 o0l262 MOV #10. ,STIMES ::D0 10. ITERATIONS 
7723 Oe5022 104416 TSSINIT ;CLEAR SUBSYSTEM 
24 Oe 104003 ERROR 3 :BAD INIT ERROR 
7726 O25026 O04437 034574 JSR R4, LRLOAD sLOAD "L" REGS 
7727 025032 000113 RECAL *RECAL 
7728 025034 000000 0. :0 WORDS 
7729 025036 000000 0 ‘0 IS BUFF ADDRESS 
7730 02504 000 “BYTE 0 “SECTOR O 
7731 25041 000 "BYTE O TRACK O 
7736 025042 000000 0 CYLINDER O 
7734 O25044 104417 TLOADRK ;LOAD RK REGS 
7735 O25046 104423 TWATI6 WAIT FOR INTERRUPT 
773 o250S0 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
77328 O250S2 005037 Oo01662 CLR INTSET :CLEAR INTERRUPT FLAG 
7739 025056 104437 TWATSS WAIT FOR SECOND INTERRUPT 
0 025060 104 ERROR 2 

re bes0be 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
774 § 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 


SEG 0143 
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ee 


SROKS FE6 SHRUB RE FTRERER 
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LER DIAGNOSTIC MACYL1 27(1006) OS-OCT-76 09:17 PAGE 144 
13:0 IMIT DETECT ON DATA TRANSFER 
034574 JSF R4,LRLOAD HEE “L” REGS 
0 30.1 ADDRESS 
ie ats 
.BYTE ; TRACK O 
, i CYLINDER é 
000020 O0i6lé MOV @PAT,L.MR1 ;SET EVEN PARITY BIT 
TLORDRK sL RK REGS 
TWATIE ;WAIT FOR INTERRUPT 
ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 ;BAD INIT ERROR 
034574 JSR R4Y, LRLOAD LORS “L” REGS 
TA : T 
- 3-400 
F : 18 BUFF ADDRESS 
te @ ; SECTOR 
BYTE 0 : K 0 
1 pene 1 
th T1é their FO FORT 
ERROR 2 :TO SLOMNOT COMPLETE ERROR 
TCHKWE ;CHECK OPERATION WITH ERROR 
"pote :SEEK INCOMPLETE 
ERROR 4 ;0R 5,6,0R7 ;REPORT ALL DISCREPANCIES 
; THIS DELAY IS NEEDED TO ALLOW SEEK AND NO MOTION TO 
; SET IN THE DRIVE BEFORE THE SUBSYSTEM CLEAR IS DONE. 
025000 MOV #25000,R1 ;SET A COUNT 
3$: DEC Rl ;DEC_ COUNT 
BNE ;LOOP UNTIL ZERO 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
000190 000000 MOV SIE,RKCS1(R2) ;SET IE 
00i&62 CLR INTSET ;CLEAR_ INT FLAG 
TWATSS : :WAIT FOR SECOND INTERRUPT 
BR es 


0$717S 001372 15S: MOV #0HO16 , OHEN ;"SUBSYSTEM CLEAR TO RESET LIMIT ERROR 
ERROR 8 ALLOWING HEADS TO RELOAD” 


es: 


— eee 


a cS 


Cle 


RK&11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYI11 27(1006) OS-OCT-76 09:17 PAGE 145 
DZREKC.P11  O1-O0CT-7@ 13:08 176 LIMIT DETECT ON DATA TRANSFER 

a s OO urea eo nearer maine prune “te 
280 :&TES i ae PROGRAMM 

:# I a SUSeT STEN GL & ERO ISSUE 

:# 

Lo fF ae Ty wiek pinauene 

7806 i 

7808 : leneoennengensenssensensenseninsaneseesnesssennsansonesssssseoss 
Oes226 gongs $it77 

810 025230 12737 oo000s2 01262 he #50. ,STIMES s 400 50; ITERATIONS 

res tBudos E 3 ite AR PT ERROR. 

7814 OeS242 004437 O34574 JSR R4, LRLOAD ;LOAD “L” REGS 

7815 OeSe46 000121 RODATA ;RODATA 

7816 025250 177400 -400 -400 WORDS 

7817 O25252 O60604 IBUFF : TBUFF IS BUFF ADDRESS 

7818 O25254 000 BY 0 SECTOR O 

7819 bese55 000 .B 0 : TRACK 

reso 000080 0 sCYLINDER 0 

rece 025260 104417 TLOAORK ;LOAD RK REGS 

ree 025262 Ol2762 0000! ocDn0dze MOV $1,RKSPAR(R2)  ;WRITE SPARE REGISTER 

7826 025270 104423 TWATI6 ;WAIT FOR INTERRUPT 

782? OeSe7e 104002 ERR :T0 SLOW/NOT COMPLETE ERROR 
ras 025274 104422 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
7830 025276 900000 0 

7831 025300 900000 0 

7832 O25302 000020 PGERR ;PROG ERROR 

7e33 025304 104004 ERROR 4 ;0R5,6,7 ;REPORT ALL DISCREPANCIES 

7835 

7B = SEESSSREAEL ESSERE SLE SESSA LE SLERAAERAE SLA RLARLELARLSLELLRELESESE 
7837 ;ATEST 100 ECC HARD 

7838 + ISSUE A SUBSYSTEM CLEAR 

7639 * A WRITE DRTR “Consisting OF OF 177777 TO 

7840 1 CYLINDER 0 WRITE 

7841 1 ALL ZEROS to CYLINDER 0 TRACK 0 De SECTOR 0. 

7242 + DURING WRITE IS CONTROLLER CLEAR. MAKE 

7843 ie NG ERROR IS RESET. NOW 

7B44 + ISSUE A READ DATA TO CYLINDER O, TRACK O, 

7B45 i HEAD 0 AND AN ECC HARD ERROR SHOULD SET. 

7B4E PTTTTTETETETTOTTELETTTOTTETTSTETTS TT ESTTSTOSTT TEST TOTS TT TT TTS T 
7847 o00004 +éT100: SCOPE 

7848 025310 912737 opn0be o0126e MOV #50. , STIMES ::D0 SO. ITERATIONS 

7849 025316 104416 TSSINIT CLEAR SUBSYSTEM 

7es0 025320 104003 ERROR 3 :BAD INIT ERROR 

7852 025322 004437 040776 RY, ;GENERATE DATA 

Pose Oe532 O0uu37 JSR GENCOM GENERATE OF ALL ONES 

7854 025330 O00400 400 


ee a 


ie 
i 


PULP MULe PRP TERAESL LULL visiil MERERERAMSLAdS dee da aauty 


333 


T-76 1 


8 2 
% 


tes 


. ee] 
BS 


gE 


~o— 395 
zg 


: 


al | Bootes 22s 


i iestds CS 


2 


a dee 


_SONTROLLER DIAGNOSTIC yA 27( 1006) 
:08 T100 ss ECC: «HARD 


7 
2 


100000 
034574 


JSR " R4, LRLOAD 


1S: TST 
BNE es 
TST RKWC(R2) 
BNE 1$ 


BIS sCCLR,RKCS1(R2) 


JSR RY, LRLOAD 
ae 


a 


ans 

TLOADRK 

TWATYS 

ERROR 2 

pene, 

DCKERR! ECHERR 
RROR 4 ;O0R 5,6,7 


BR 3$ 
2s: 


OS-OCT-76 09:17 PAGE 146 


LORD ma REGS 
Aad IS BUFF ADDRESS 


CYLINDER 0 
Dart oR in FeRRUPT 
:T0 SLOW/NOT COMPLETE ERROR 


“CHECK OPERATION FOR ANY ERRORS 
16 ;REPORT ALL ERRORS 


;GENERATE DATA OF ZEROS 


;LOAD “L” REGS 
; Sane 


oboe tere 
bale BUFF ADDRESS 
Bo 


; TRACK 

CYLINDER O 

;START OPERATION 

; CHECK IF INTERRUPT HAS OCCURRED 
7+ H TO SOON. REPORT ERROR 

{TEST IF NPR’ S DONE 

NO - LOOP 

;CLEAR CONTROLLER (CROWBAR WRITE) 

;LOAD - REGS 

;RODATA 


37400 WORDS 
; [BUFF 1s BUFF ADDRESS 


;LOAD RK REGS 
hart FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION WITH ERROR 
;DATA CHECK AND ECC HARD 
;REPORT ALL DISCREPANCIES 
;SKIP TO EXIT 


SEG C146 


ec — 


RKEL1 FUNCTIONAL SONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 147 SES 0147 
DZREKC.F11 Oi-O0CT-76 13:08 7100 ECC HARD 


7318 bess 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
731 47& 104004 ERROR 4 ors, 6. 7, ion ;REPORT ALL ERRORS 


3 
315 
oats + ivest lol OR ar Van GME ee eae a 
7318 ; ATEST Vise Sesvsten oc 3 
$333 i iss eae ae op hor 'W Baty FOR SEConO INTERRUPT. 
o3s3 H Pome That 8 CLO MopROubA SEEK TS OER 
7323 : AND IVE CLEAR "efoncd Set ore AGNOSTIC MODE. 
eae i I THING E OF NO DATA 

ISTIONS ON BR Ta Che 
7926 ; jit seseonnsanssnssessscessenescusienstenstennsenstegstessssessses 
738 BSeen9 goose: o00012 o0126e aby #10. ,STIMES 3;D0 10. ITERATIONS 
7930 025510 104416 TSSINIT -CLEAR SUBSYSTEM 
733k O2es512 104003 ERROR 3 :BAD INIT ERROR 
7333 025514 g04437 034574 ISB RY, LRLOAD ; LOAD "L” REGS 
oa3¢ poeess §Sopddn + 3 Foros 
7936 25524 00000 0 :0 IS BUFF ADDRESS 
7337 025526 -BYTE 0 SECTOR DO 
7938 025527 "BYTE 0 :T 
7339 025530 000632 632 :CYLINDER 632 
Faq : 025532 104417 TLOADRK 
7942 025534 104423 TWATIS thoit F EGR INTERRUPT 
7943 025536 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
7344 025540 005037 on1662 CLR INTSET :CLEAR INT Fi 
7945 025544 104430 TWATIE :WAIT FOR SECOND INTERRUPT 
rate 025546 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
7948 025550 004437 034574 ISR R4, LRLOAD ;LOAD “L” REGS 
7948 025554 00011 RECAL RECAL 
7950 025556 0 0 WORDS 
7951 025560 000000 0 :0 IS BUFF ADDRESS 
he de5obe 000 BYTE 0 SECTOR O 
025 000 BYTE 0 ‘TRACK O 

ae 025564 900000 CYLINDER O 
7956 O2SSt& 104417 TL ;LOAD RK REGS 
7957 025570 104423 TWATIG WAIT TERRUPT 
738 025572 104002 :TO SLOW/NOT COMPLETE ERROR 
7960 025574 004437 034574 JSR RY, LRLOAD sLOAD “L” REGS 
791 025600 900125 RDHEAD * ROHEAD” 
7962 025602 000000 0 WORDS 
7963 025604 poogas ae :0 1s oBUEF ADDRESS 
sees p5eppe 000 BYTE 0 : TRACK 0 
7966 025610 000000 :CYLINDER O 
797 OeSbl2 012737 OO0D4O oODlb16 MOV 8OMD,L.MRI :SET DIAG MODE 


de 


FUNCTIONAL CONTROLLER DIAGNOSTIC ACY 11 27(1008) OS-OCT-76 09:17 PAGE 148 

C.P1l O1-OCT-76 13:08 T101 § DRIVE TIMING ERROR 
7368 025620 104417 TLOADRK ;LOAD RK REGS 
7970 025622 004437 035050 ISR RY, MCLOCK CLOCK CONTROLLER THROUGH SEEK 
far8 025626 001062 1062 :AND CLEAR TO READ 
2373 025630 oosobe 00026 CLR RKMRI (R2) sRESET DIAG MODE, LET RD HORS COMPLETE 
ee 925534 pues TWAT 32 sHATT FOR IN T 

ito aoeel aan rite EXP ERROR 
rie ee it see ane RC” Oem 
025644 000090 : 
7980 025646 000000 
Paes 025650 104004 ERROR 4 ;0R5,6,7  ;REPORT ALL DISCREPANCIES 
025652 1S: 

7964 Desb5e 104416 TSSINIT . CLEAR, SUBS YSTEM 
oaee oeeree 10303 900109 goo000 MOV SIE, RKCS1(R2) i Bey INTERRGE ENABLE 
7387 025664 005037 O01b6e2 CLR INTSET :CLEAR INT FLAG 
7389 025670 104437 TWATBS ;WAIT FOR INTERRUPT FOR END OF RECAL 
7330 025672 104002 ERR 
7992 025674 004437 034574 JSR R4, LRLOAD ;LOAD “L” REGS 
7993 025700 900105 CLEAR :CLEAR 
7994 025702 900000 0 :0 
7995 025704 000000 0 :0 IS BUFF ADDRESS 
799% 025706 000 BYTE 0 SECTOR 0 
7997 025707 000 BYTE 0 TRACK O 
7338 025710 oc00o0 0 >CYLINDER O 
8000 O25712 104417 TL sL RK RE 
Bone eerie ipyoRe ERROR’ i Aye 0 ETE ERROR 
Sig oe57e0 ipa! FE RKOP CHEEK OPERA aire AY ERRORS 
008 104 ERROR 4 ;0R5S, 6, 7 
8006 .SBTTL ##ERROR FORCING IN ane 
8008 . et ae eta tie deen Gee ee 
B008 ; ATEST 102 INITIALIZE CLEARING SACK 
8011 te ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE 
8012 + DRIVE. ISSUE A SUBSYSTEM CLEAR. PUT CONTROLLER IN 
8013 * DIAGNOSTIC MODE. ISSUE A SELECT COMMAND WITH 
8014 1 MESSAGE 1D 3 AND DRIVE SELECTED = 0. CLOCK THROUGH 
8015 * PHASE 6. TURN OFF DiAcNOsTIC MODE. MAKE 
ett i SURE UNIT FTELB ERROR DOES NOT SET. 
ete ee AFSKSAEKASKAAEAAARELE RS EAE AA RASA SERRA RA AALS HALAARA HA LERAARARALALHEE 
8019 025724 oD0004 t$T102: SCOPE 
Boe0 bes7eb 012737 o00062 O01262 MOV #S0. , STIMES ; 00 50. uleee 

1 734 109416 TSSINIT tALE s areren 
8022 104003 ERROR 3 :BAD INIT ERROR 


B 





a a ec re ee ec 


é 


Soin PERRET 


BB 


Heesead 
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le 


UNCTIONAL CONTROLLER DIAGNOSTIC MACYLI 271906) OS-OCT-76 09:17 PAGE 149 
Pll  O1-OCT-76 13:08 Ti02 INITIALIZE CLEARING SACK 
025740 904437 034574 JSR R4, LRLOAD ;LOAD “L” REGS 
025744 900101 SELDRV :SELDRV 
Bse538 aaleete if tag ADDRESS 
025752 000 BYTE : s SECTOR 0 
o5ese3 oooshe 6 iOS ENOER 0 
025756 104417 TLOADRK :LORD BK REGS . 
Bee Rides ERROR z :T0 oe NOT ERAPLETE ERROR 
104421 TCHK ;CHECK OPERATION FOR ANY ERRORS 
peesee 1 a6 ERROR 4 ;0R 5S, 6, 7 REPORT ALL E st 
025770 104416 TSSINIT :CLEAR SUBSYSTEM 
025772 104003 ERROR 3 :BAD INIT ERROR 
025774 37 034574 JSR R4, LRLOAD ;LOAD “L” REGS 
026000 900191 : s SEL DRY 
Oeb00e ' WORDS 
026004 ve 0 :0 IS BUFF ADDRESS 
Se006 .BYTE 0 ; SECTOR 
"BYTE 0” 
9260 19 0 CYLINDER 0 
02601 900043 001616 MOV #3!DMD,L.MRI DIAG MODE AND MESSAGE PAIR 3 
026020 001610 CLR L.cSe2 ‘SELECT DRIVE O 
026024 104417 TLOADRK ;LOAD RK REGS 
026026 37 035050 JSR RY, MCLOCK CLOCK THROUGH PHASE ADDRESS 6 
026032 001027 1027 
026034 o42762 OOCO4O o00026 BIC #DMD,RKMRI(R2) ;CLEAR MAINTENANCE MODE 
O26042 104424 TWAT32 sWAIT FOR INTERRUPT 
104002 ERROR 2 ‘TO SLOW/NOT COMPLETE 
026046 104421 ;CHECK OPERATION FOR ANY ERRORS 
026050 104004 ERROR 
;  gusueateccrsnecesheserhecheccubssesnceedbecsenesuseceuseessests 
jATEST T 103 DRIVE OFF TRACK 
. ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. ISSUE 
ie OFFSET OF +1200 MICRO-INCHES. PUT CONTROLLER IN DIAGNOSTIC 
* -- A WRITE DATA OF 1 WORD TO CYL 
* TRACK O, SECTOR 0. CLOCK T K DRIVE ¢ 
1 MESSAGES. TURN OFF DIAGNOSTIC MODE. DRIVE OFF TRACK 
i SHOULD SET IN DRIVE. REPEAT FOR ALL AVAILIABLE DRIVES. 
- eee Gre re ert eee tte ert eran 
026052 o00004 +67 103 
026054 012737 o00012 o0l262 + aK #10. ,STIMES ::D0 10. ITERATIONS 
O26062 104416 TSSINIT iar SUBSYSTEM 
026064 ERROR 3 ‘BAD INIT ERROR 


SEG 0149 





RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYI1 27(1006) O5-0C7-76 08:17 PAGE 150 SEG 0150 
BORGKC PLL Gl -Oet oe 13. 08 T1603 DRIVE OFF . 
2606 004437 034574 JSR «RH, LRLOAD :LORD “L" REGS 
Resins Sones a ae 
a F ADDRESS 
26100 900 BYTE 0 
ose is 6 : ite RO 
026104 104417 —~TLOADRK ;L OAD RK REGS 
Depide 1O4ie3 TWATI6 tHAIT FOR T 
110 i ERROR 2 'T0 SLOW/NOT COMPLETE ERROR 
8091 O26112 005037 o01662 CLR _—sCINTSET ‘CLEAR INTERRUPT FLAG 
8093 O26116 104437 TWATES ;WAIT FOR INTERRUPT #2 
8094 026120 104002 ERROR 2 
: 0261 934574 JSR _—- RY, LRLOAD sLOAD "L” REGS 
Boa? peeise Booree Zee AR + eRe 
8098 026130 900000 0 :0 WORDS 
8033 e613 000000 O 19, 1S BUFF ADDRESS 
gin) peeise BOS BYE 8 FRSC O 
8102 026136 000000 :CYLINDER 0 
1 140 104417 TLOADRK 
site Peeiig 1RMii2 TWATIS iiaty Fo FOR TATERRUPT 
8106 Oebiv4 104002 ERROR O SLOLONOT COMPLETE ERROR 
8108 O26146 104421 TCHKOP are OPERATION FOR ANY. ERRORS 
8103 026150 104004 ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 
811i 026152 004437 034574 J R4, LRLOAD "L" REGS 
etie Betis Ooo115 SPESET he 
Bits Geeiee 5 ADDRESS 
clip ebies Bip ‘RIE Laks 
8117 166 0 I 
B18 BSeISB 15737 ODEO oOleL2 MOVB #60, L. ASOF Geto, AT +1200 
120 026176 104417 TLOADRK sLOAD RK REGS 
8121 26200 104422 TWATI6 tHAIT FOR INTERRUPT 
glee Gebede 104002 ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 
8124 026204 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
8125 O2be06 104004 ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 
e127 005037 oO01bb2. CLR _—sCINTSET SCLEAR INT FLAG 
8129 104424 TWAT32 sWAIT FOR INT #2 
8130 104002 ERROR 2 
8132 104421 TCHKOP sCHECK OPERATION FOR ANY ERRORS 
e123 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
8135 004437 034574 JSR _-R4¥, LRLOAD ;LOAD "L" REGS 
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BiNe 
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FUNCTIONAL CONTROLLER DIAGNOSTIC WACYIi 27(1006). O5-0C7-76 09:17 PAGE 151 SEG 015: 


000105 


Bie7a? 00040 on1eL6 


nity 001662 


104004 


Se ee ee es es ee es ee ee ee 


eae ; CLEAR 
F 
"one 9 Ly somes 
BYTE 0 
0 CYLINDER 0 
TLOADRK ;LOAD RK REGS 
TWAT16 ;WAIT FOR NTERRUP I 
ERROR 2 :T0 SLOW/ TE ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 
JSR R4Y, LRLOAD fein ~ REGS 
WRDATA TOR 
F IS BUFF ADDRESS 
-BYTE OQ SECTOR 0 
-BYTE 0 ; TRACK 0 
CYLINDER a) 
MOV #DMD,L.MR1 ;SET DIAGNOSTIC MODE 
TLOADRK 
hs R4, MCLOCK ;CLOCK THROUGH SEEK & DRIVE CLEAR 
CLR RKMR1 (Re) ;CLEAR DIAGNOSTIC MODE 
TWAT32 ;WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE 


¢ RERALAEAERALELE LAE REEL LAR ERASE AREER EERE ELLA ER EAA ELLER REE EE LLES 
Pritt titi ttt iit tit iititiLiLiLL LLL LLL LLGccaikid 


NOTE: 
THE DRIVE LOGIC DOES NOT RAISE ATTENTION AT THEOCCURRENCE 


fro Fines m SEADS SETTLING ONE-SHOT. ATTENTION Yo NOT SET 


WILL FINISH THE MRT RAISE’ INTERRUPT aS THOUGH 0 ERROR 

oce ATTENTION WILL HAPPEN A LITTLE LAT ER 
(ABOUT 3° MIL TSECONDS) AT WHICH TIME THE DRIVE MUST BE SELECTED 
TO CHECK THAT DRIVE OFF TRACK SET. 


; REALREAALEEA RRA ARAE LE LLLA AERA LALA RAR REALL RELA R ERA ER ERE RERARELE EE 
HB HEHBHBHEHEHEHBHEHE HEE HUHEHEHEHEHEEHE HEHEHE HEHEHE 


THIS DRIVE LOGIC MAY CHANGE!!! IF IT DOES THIS 
TEST MUST BE ALTERED. 


oe OP INTSET SCL ERS INT FLAG 
K OPERATION FOR ANY ERRORS 
ERROR 4 ;0R S, 6, 7 REPORT ALL ERRORS 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC oy 3 27(1008) OS-OCT-7& 09:17 PAGE 1Se2 SEG 0152 
OZREKC.P11 01-OCT-76 13:08 T103. DRIVE OFF TRACK 





8192 026330 104423 TWAT 16 wt FOR INTERRUPT FROM DRIVE 
8193 T SIGNALSDRIVE OFF TRACK ERROR 
e133 ERROR 2 
ete JSR R4, LRLOAD ;LOAD “L” REGS 
8137 SELDRY . SELDRV 
it 70 1 F ADDRESS , 
8200 -BYTE 0 :SECTOR O 
B20} BYTE 0 :T 
sCYL RO 
ge03 CLR L.MRI :RESET DIAG MODE 
? TLOADRK 
Bsne Oeesen bude There ote bat 
8207 ‘026362 104002 ERROR 2 :TO SLOW NOT TE PLETE ERROR 
ashe 4 TCHK ; RATION WITH ERROR EXPECTED 
S510 peesee ApodoH DROTERR BRE VE OFF TRACK 
8211 026370 900000 
8212 026372 
8213 026374 104004 ERROR *REPORT ANY DISCREPANCIES 
8214 ; jeureencaneneennbaaeenkebeensenieanennennesneaiesnnasnsntantons 
gels ; ATE FILE UNSAF: 
gel? + sae, A SUBSYSTEM CLEAR. | ISSUE A RECLAIBRATE. ISSUE 
°£ RACK 
8219 # FORMAT. DO COMMAND IN 26 ON FR FORMAT. 
8220 ti PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A WRITE 
8221 1 HEADER TO CYLINDER 0, TRACK O, ONE WORD IN 26 SECTOR 
B22e * FORMAT. CLOCK THROUGH SEEK AND DRIVE CLEAR MESSAGES. 
ace? i SIMULATE INDEX ol se. TURN N OFF PiAGHO osTi¢ MODE. FILE 
Bees ii NBOUBH GE Ba net PULSE. UE OeAT FOR ALL AVAILIABLE DRIVES 
8227 MTETTTTTT TTT TT TT TTT TTT TTT TTT TTT TT TTT Te TTT ttt ttt TTT TTT Sy 
gece 026376 cOco04 téT104: SC 
026400 012737 o00012 o0126e MOV #10. ,STIMES ;:D0 10. ITERATIONS 
230 026406 012737 177777 OO16E4 MOV #-1.REFMT SET REFORMAT SWITCH 
1 Oc6414 104416 TSSINIT *CLEAR SUBSYSTEM 
bee 026416 104003 ERROR 3 :BAD INIT ERROR 
8234 026420 004437 034574 ISR R4, LRLOAD ;LOAD “L” REGS 
8235 026424 000113 RECAL ?RECAL 
8236 Oe642e6 900000 0 0 WORDS 
8237 026430 000000 0 :0 IS BUFF ADDRESS 
8238 026432 000 -BYTE 0 SECT OR O 
8239 026433 000 “BYTE 0 * TRACK O 
Be40 026434 900000 0 *CYLINDER O 
B42 O26436 104417 TLOADRK sLOAD RK REGS 
8243 O26440 104423 TWAT 16 sHATT FOR INTERRUPT 
gous Oeb44e 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
ge4E beewsd 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
8247 446 | RS 


ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRO 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC ye 27(1006) OS-OCT-76 09:17 PAGE 153 SEG 0153 
DOZREKC.P11 01-OCT-76 13:08 T104 FILE UNSAFE 


ecug 026450 005037 od16b2 CLR INTSET ;CLEAR INT FLAG 
8250 O26454 104437 TWATBS :WAIT FOR SECOND INT 
Pa 026456 104002 ERROR 2 
026460 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
8254 O26462 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
Ber 4 034574 ISR R4, LRLOAD sLOAD “L” REGS 
E528 OBE4%6 caattee CLEAR : CLEAR 
5559 474 is : ip IS BUFF ADDRESS 
476 0 -BYTE 0 ‘SECTOR O 
8261 026477 000 .BYTE : TRAC 
Bebe 026500 000000 0 :CYLINDER 0 
Boece Hataen Tate TheTeen TAT FOR IN 
get OS Eee rata ERROR’ 2 :T0 1 Fon it NTRP ERROR 
8268 O26510 104421 TCHKOP sCHECK OPERATION FOR ANY ERRORS 
B68 026512 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
8271 026514 004437 034574 ISR R4, LRLOAD sLOAD “L” REGS 
026520 010125 ROHEAD! CFMT ; RDHEAD! CFMT 
8273 OebSe2 O00000 0 ;0 WORDS’ 
8274 O26524 000000 0 70 IS BUFF ADDRESS 
Boye Dees? «OBR BME OB spect 0 
eer? 026530 00000 ' *CYLINDER O 
Be GER iu re gt Poles 
BoB! 026536 1 ERROR 2 :T0 OREN E ETE ERROR 
026540 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
8284 O26542 104004 ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 
cose aC 026544 004437 034574 JSR R4, LRLOAD sLOAD "L” REGS 
026550 000101 SELDRV :SELDRV 
8288 Of6552 O00000 :0 S 
8289 026554 000000 70 IS BUFF ADDRESS 
0265 000 BYTE 0 SECTOR O 
8291 026557 000 BYTE 0 TRACK O 
bea 000000 CYLINDER O 
8294 OeeS62 104417 TLOADRK ;LOAD RK REGS 
8295 026564 104423 TWATI6 sWAIT FOR INTERR 
8296 026566 104002 ERROR 2 :TO SLOW/NOT ERAPLETE ERROR 
8298 026570 004437 934574 ISR RY, LRLOAD oe “L” REGS 
8299 026574 000127 WRHEAD ; WRHEAD 
8300 026576 177777 -| -1 WORDS 
8301 26600 O62604 OBUFF ‘OBUFF IS BUFF ADDRESS 
8302 Oeb60e2 000 “BYTE 0 SECTOR O 
8303 026602 000 "BYTE 0 TRACK O 


---— 


ooo 


RK611 FUNCTIONAL CONTROLLER 
DZREK 


C.Pll 01-OCT-76 13: 


“ele: 
8309 


Siriaas, 


Re eEES Wtue-O 


ROUSSE 


& 
& 


RUQRAGURMS Sea Re se oRaRa 





ococ00 
012737 


001064 


000040 


035050 


000200 
035050 


o00200 
035050 


000026 


034574 


001616 


034574 


001616 


o00de6 


oocd26 


0 

MOV #OMD,L.MRi 
18 R4Y, MCLOCK 
1064 


BIS #MIND,RKMR1 (Re) 
JSR R4, MCLOCK 
1001 


BIC #MIND, RKMR1 (Re) 
JSR R4, MCLOCK 
1001 


CLR RKMR1 (Re) 
TWATE4 

ERROR 2 

TCHKOP 

ERROR 4 ;0R S, 6, 7, 
JSR R4, LRLOAD 
SELDRV 

0 

0 

-BYTE Q 

BYTE 0 

0 

CLR L.MR1 


TLOADRK 
TWATI6 
ERROR 2 

TCHKWE 

‘eee DROTERR 

0 

ERROR 4; OR 5,6,7 
TSSINIT 

ERROR 3 


JSR R4, LRLOAD 


SELDRY 

) 

0 

-BYTE Q 
P 0 


DIAGNOSTIC MACY11 27(1006) -OCT-76 09:17 PAGE 1S4 SEG 0154 
08 T104 FILE SNSAPE om 


:CYLINDER 0 

;SET DIAGNOSTIC-MODE 

: RK REG 

+ ROGRK KREG a SEEK AND DRIVE CLEAR 


;SET INDEX 
;CLOCK INDEX 


;CLEAR INDEX 
;CLOCK CLEAR 


;CLEAR DIAGNOSTIC MODE 


;WATT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


“CHECK OPERATION FOR ANY ERRORS 
10 ;REPORT ALL ERRORS 


Lon _ REGS 


*CYLINDER 0 

;CLEAR DIAG MODE 

;LOAD RK REGS 

WAIT FOR INTERRUPT 

*TO SLOW/NOT COMPLETE ERROR 

:CHECK OPERATION WITH EXPECTED ERROR 
UNSAFE AND ORIVE OFF TRACK 

;REPORT ANY DISCREPANCIES 


;CLEAR SUBSYSTEM 
;BAD INIT ERROR 


;LOAD “L” REGS 

; SELDRV 

;0 WORDS 

01S BUFF ADDRESS 
; SECTOR 0 


; TRACK O 
CYLINDER O 


cc 


Mle 


RK&11 FUNCTIONAL CONTROLLER 0 DIAGNOSTIC MACYL1 27(1006) OS-OCT-7& 09:17 PAGE 155 SEG O155 
DZREKC.P11  O1-OCT-76 13:08 T104 FILE UNSAFE 

8360 026754 012737 900001 O01616 MOV #1,L.MRI ;SET MESSAGE SELECT ONE 

Sees 1ouu17 1S: TLOROAK sLOAD RK 

Bed 026764 antes TWAT IE inait FOR Ree ERRUPT 

8365 026766 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
e265 026770 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
5358 026772 104004 ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 

774 oo0040 01574 T #S.HDHM,T.MR2  ;TEST IF HEADS HOME 

ea Bet002 Baise? Bo Ot«dt ; 

8373 027004 104416 TSSINIT ;CLEAR SUBSYSTEM 

e378 027006 104003 ERROR 3 :BAD INIT ERROR 

¢ 

Br fara (eam se Gis HAE Er 

8378 oe ebte NOP *DON’T CARE E Sate 
8380 027020 104416 TSSINIT a ;CLEAR SUBSYSTEM 

8381 O27022 104003 ERROR 3 BAD INIT ERROR 

B53 027024 012762 o00100 oD0000 MOV #IE,RKCS1(R2)  ;SET INTERRUPT ENABLE 
8385 027032 104437 TWATBS ;WAIT FOR SECOND INTERRUPT 
8386 027034 104002 ERROR 2 

g2ee 027036 005037 OO1b16 CLR L.MRL ;CLEAR MRI 

8390 O27042 004437 034574 JSR R4, LRLOAD fey: "L” REGS 

839i 027046 000105 CLEAR CLEPR 

8293 5 oS2 BoD0R0 5 F ADDRESS 

8394 027054 000 -BYTE 0 La 

8395 027055 000 -BYTE 0 

a3% 027056 000000 0 OL INDER 0 

8398 027060 104417 ~ TLOADRK ;LOAD RK REGS 

8399 027062 104423 TWATIE :WAIT FOR INTERRUPT 

gug0 027064 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
8402 027066 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
8403 027070 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 

840S 027072 004437 040776 JSR R4, GENCOM ;BUILD HEADERS 

Be 027076 001200 1200 

8408 027100 004437 034574 JSR R4, LRLOAD ;LOAD "L" REGS 

409 027104 O001 WRHEAD 

8410 027106 177676 -102 102 WORDS 

8411 027110 O62604 OBUFF ‘OBUFF IS BUFF ADDRESS 
8412 027112 000 -BYTE 0 ‘SECTOR O 

8413 027113 000 “BYTE 0 TRACK 0 

aiid 027114 oo00000 0 :CYLINDER O 


Nle 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17. PAGE 156 SEG 156 
DZR&KC.P11 O1-CCT-76 13:08 T104 FILE UNSAFE 
BYig 027116 104417 TLOADRK sLOAD RK REGS 
8417 027120 104426 TWATE4 :WAIT FOR INTERRUPT 
8418 Besse 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
By 0271 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
Biel 7126 104004 ERROR 4 ;0RS, 6, 7 REPORT ALL ERRORS 
8423 : © SEARS ALA SRA RAEAA RHA SRE RARE KEREL ERE A REA LALLA LALA ALAA RARAARLZKE 
B424 kt TEST 105 DUMMY TEST FOR PREVIOUS TEST EXIT 
Byes i THIS TEST IS PRESENT TO MAKE SSWOSTB TABLE HAVE AN ENTRY 
26 i WHICH RELATES TO “NEWORV". THIS IS NECESSARY IF AN ERROR OCCURS 
8427 1 THE PRECEEDING TEST AND THAT ERROR ABORTS THE TEST. 
8428 7 F THIS TEST WERE NO PRESENT THE PROGRAM WOULD SKIP THE 
B23 i NEWDRV" ROUTINE AND GO TO THE TEST FOLLOWING “NEWDRV” 
8431 1% IN ADDITION, THE DRIVE IS CLEARED AND THE HEADS ARE ALLOWED 
8432 1H TO RELOAD. THIS MUST BE DONE TO PREVENT UNEXPECTED INTERRUPTS 
8433 3 FROM THE DRIVE COHTNG READY AT A LATER TIME. 
8434 | REKEKEALA ASHE RA KAKA REALE KEA ARSE RASA RASA LAL AARARA RELA RE RAE LALELE 
8435 027130 .000004 +éT 105: 
B36 027132 012737 o00001 001262 MOV #1,STIMES ;;D0 1 ITERATION 
8438 027140 104416 TSSINIT ;CLEAR SUBSYSTEM 
8439 027142 104003 ERROR 3 :BAD INIT ERROR 
Buay 027144 013762 O01626 oO00010 MOV DRVNUM RKCS2(R2) -LOAD DRIVE NUMBER 
g442 027152 Ole762 000001 00000 MOV #1, RKCSIC(R ;SELECT THE DRIVE 
8443 027160 O32762 000200 O000i2 1S: BIT wORDY, ROS TR2) ‘TEST IF DRIVE READY 
Ene 027166 001774 BEQ NO LOOP 
BY4E 027170 104416 TSSINIT ;CLEAR SUBSYSTEM 
8447 027172 104003 ERROR 3 :BAD INIT ERROR 
By ug 027174 OO4437 040776 ISR R4, GENCOM GENERATE HEADERS FOR CYL O 
By50 027200 901200 1200 
B4S2 027202 004437 034574 ISR R4, LRLOAD ;LOAD "L” REGS 
027206 000127 WRHEAD * WRHEAD 
8455 027210 177676 -102 :=102 WORDS 
8455 027212 O62604 OBUFF :OBUFF IS BUFF ADDRESS 
8456 027214 000 -BYTE “SECTOR O 
8457 027215 000 “BYTE 0 : 
gues 027216 000000 0 CYLINDER O 
BYE0 027220 104417 TLOADRK ;LOAD RK REGS 
8461 Oe7e22 104426 TWATE4 sWAIT FOR INTERRUPT 
ibe 027224 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
B464 027226 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
BYES 027230 104004 ERROR 4 ;0RS, 6, 7 ;REPOPT HLL ERROR 


8466 Oe7e3e 005037 001664 CLR REFMT CLEAR REFORMAT SWITCH 


‘ 





RKE11 FUNCTIONAL CON 
DZIRBKC.F 11 


3 
ae 
3% 
2 
os 
B48S 
pe 
8488 
Be 
eae 
a 
es 
aE 
8500 
2 
8S03 
ES 
Es 
es 


000004 


| a | 
= 
3 


Sater: 
Bess 


: 


: 


res 


CRURCR CRU UR UR URC 
= b= b+ b= 2 b-0 & 2 2 2 Be 
LW Nou £ WTO 


RS 


MACY11 27( 1006) 
##MULTI-DRIVE OPERATIONS 





09:17 PAGE 157 


-SETTL ##MULTI-DRIVE OPERATIONS 
NEWORV: SCOPE 


18: 


2s: 
3$ 


ay 


pet fee a 


WADA DD 


w 


P33 


DS 


300 ONLY once 
a WE TESTING DRIVE 7? 
; YES-SKIP 


;BUMP TO NEXT SEQUENTIAL ADDRESS 
si eat TQ THAT P ITION 
TH VE TO BE TEST 
ALVES TESTED? 
ste CHECK NEXT DRIVE AVAILABLE 


Re ro Teste oOr TO CHECK THIS DRIVE 
:CLEAR DRIVE BIT 
;CLEAR DRIVE NUMBER 


s FFSALLFLEFLELASLLLSLEALLALLLLELALELLALALELELELLELELELAALLELS LARS 


3% 
3% 
; 


tETEST | 


RESET ATTENTIONS WITH UNIBUS INIT 


Po .8. o REC UBRATE OM ON Be Or AR EE PRON Rese t. 


eit ittiittiittiitiirttiittittiiittittiitttiistiters. 


+1106 


1$: 
2s: 


12S: 


2a 


— De 
b> a . 


;;00 10. ITERA 
CLEAR DRIVE POSITION C COUNTER 
ae He Fe FOR POSITION O IN TESTING FOR AVAIL 


, SPE 


vo: 


; TEST IF TH qs DRIVE AVAILABLE 
ESOSKIP f 0 SEEK 
;SHIFT DRIVE SELECT BIT 
;BUMP DRIVE POSITION COUNTER 
sALL oo POSITIONS CHECKED 
sNO-L 
;SKIP TO RESET 
;LOAD DRIVE NUMBER 
sLOAD RECALIBRATE 
;LOAD RK REGS 
s;WAIT FOR INTERRUP 
;TO SLOW/NOT COMPLETE ERROR 
CLEAR INTERRUPT F 

COUNT FOR 8 SECONDS 


AR UNU 
iCHECK I a grt SET FROM DRIVE RECAL*ED 











: 


oO 
y 
— 


cae 


rss 


oo 
aT 


N88 
88 





: C13 ; 
TTPRTSONS BETH CRTBUS THIS 


é 
as 
} Lane 
a 


;WAIT FOR 16 MS 
;DON’T CARE RETURNS 


;TATOL WAIT iB 4 § 8 SECONDS 


es :CHECK_ATTENT ACH 16 MS 
REPORT IF NO ATTENTION IN @ SEC 


ERR a sons, 5, 7 {EG RERERE #7 mS 


BAnSSE 
mao: 
une 





BR cK} } ; LOOP FOR ext DRIVE 
4§: RESET UNIBUS 
JSR PC, STKINT IRESE KETBOARO INTERRUPT ENABLE 
MOV aes. ,R1 3;D0 A SHORT DELAY 
ss: DEC Ri 
BNE Es} 
JSR PC, OPTTST ;SET UP OPTIONS 
TGETRK ;GET RK611 REGS 
TSTB T.ASOF +1 pALL Sr Tent ion RESET? 
BEG ts ; YES-SK 
MOV sEMDA, EM12N pate ATT NOT RESET RESULT OF 
MOV PUR Ole ;UNIBUS RESET” 


o$: 
; ELEAERESSERSRSRERASERREREE EEE SELLER LARS REESE SRESSEE SEER EEE EEE EE 
ATE EST 107 RESET ATTENTIONS WITH SUBSYSTEM CLEAR 


i 
# ms Ee ere ON AL het at DRIVES. 
i al A STEM MAKE SURE ALL ATTENTIONS 


[Pepeseaeeeneeneaenesceceseannenseaeansceneseaeeneceaeanantaeays 


jist 
+ Boy SO. ,STIMES -DO SO. ITERATIONS 
CLR RO AL EAR AR ORIVE POSITION COUNTER 
MOV #1,R1 PRESET TO TEST POSITION 0 
MOV SOEVM,R3 CUT DEVIC 
TSSINIT ; 
ERROR 3 :BAD INIT ERROR 
1S: BIT R1,R3 : THIS DRIVE. AVAILABLE” 
3$ ASL 1 YEE me nex? Oe IVE POSITION 
INC RO :DUMP PO SITION COUNTER 
BIT #8178,R1 sALL POSITIONS CHECKED 
BEQ 1$ LOOP 
BR 4g i TESCSKIP TO CLEAR 
2s: MOV RO,L.CS2 


;LOAD DRIVE NUMBER 
#RECAL,L.CS1 | ;LOAD RECALIBRATE 


MOV 














D13 


s LHLLLKELELARAEAAALALALAALLAL LAS LELERELALRAALAELALERALELALSEAARAKE 


RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY LI 27( 1008) 05- -OCT-76 09:17 159 SEQ 0159 
DZREKC.P11  O1-OCT-76 13:08 T1067. RESET ATTENTIONS WITH SUBSYSTEM CLEAR 
8579 027632 104417 TLORORK e +900 BK 
Be f l ERROR 2 :T0 1 FOR TERRY ERROR 
40 1 CLR INTSET - FLAG 
ceea 44 b1305 BoASeS MOV #500. ,RS scbe SouNT FOR 8 SECONDS 
gS8S 27650 01 000012 00000 MOV $12. RKCS1(R2) RESET INTERRUPT ENABLE 
B56 be7b56 01 16 OO1SSE 128: MOV RKASOF (RE), T.ASOF :GET ATTENTION REGIS 
4 1137 l MOVE T.ASOF4+1,R4 sab JUST FOR CHECK OF ATTENTION 
stos 70 pero 177400 BIC 8177400, R4 CLEAR UNUSED BITS 
8595 74 1 BIT R1,R4 :CHECK IF ATT SET FROM DRIVE RECAL’ED 
e230 027676 001006 BNE 10$ *YES - SKIP 
8592 027700 104423 TWATIE WAIT oe 16 MS 
8593 027702 00240 NOP :DON’T CARE RETURNS 
8534 027704 O000e40 NOP 
6595S 027706 005305 DEC RS sTATOL WAIT TIME IS 8 SECONDS 
859% 027710 001362 BNE 128 *CHECK ATTENTION EACH 16 MS 
B37 027712 104002 ERROR 2 ‘REPORT IF NO ATTENTION IN 8 SEC 
8599 027714 108: 
8600 027714 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
| 8601 27716 104004 ERROR 4 ;0RS, 6, 7 :REPORT ALL ERRORS 
Bens tne 027720 000731 BR 38 sLOOP FOR NEXT DRIVE 
Bea 027722 052762 OO0040 000010 4s: BIS #SCLR,RKCS2(R2) ;D0 SUBSYSTEM CLEAR 
| 8806 027730 012701 000031 MOV #25. .R1 :D0 A SHORT DELAY 
8607 027734 005301 S$: DEC RI 
B08 027736 001376 BNE S$ 
8610 027740 104420 TGETRK GET RK611 REGS 
| B612 oOe7742 105737 001557 TSTB ~—s- T. ASOF +1 ; TEST ALL ATTENTION RESET 
| e613 027746 001407 BEQ es : YES-SKIP 
/ B615 027750 012737 oOSs421 001470 MOV #EMDA, EM12N ;“DRIVE ATT NOT RESET AS RESULT OF 
8616 027756 012737 O5563S 057702 MOV 8EMSCLR,DFO11A ;SUBSYSTEM CLEAR™ 
617 027764 104012 ERROR le 
8619 027766 
| 8620 s ro Rie Se tet RMON Belt EL TRA OTE AE 
| 8621 ;ATEST 110 SVAL AND ATTENTION FROM OTHER DRIVE 
| 8623 DO A RECALIBRATE ON ONE AVAILABLE DRIVE. DOA SELECT 
| B24 * ON ANOTHER AVAILABLE DRIVE. MAKE SURE STATUS VALID 
| 862s 1% ae WAIT FOR SECOND INTERRUPT FROM RECALIBRATE 
8626 : SURE STATUS VALID REMAINS SET AND DRIVE STATUS 
B6e7 + NS RESET. 
3% 
| B29 i REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES. 
Bes 1 NOTE: THIS TEST WILL ONLY BE DONE IF AT LEAST 
| 8632 * TWO DRIVES ARE AVAILABLE. 
| 8633 i 
73 


ae _= 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC 
OZR&K 13:08 


Bee 
eos 


00 


fe 





030146 


| 
1 
1 
1 
1 
1 
1 
1 


Bg 


50 
Se 
s4 
Sb 
60 
7 
76 


as 


Pil 01-OCT-76 


Biers? 


Oo 
a en 


° 


= 


se 


3 
SS 


eee? C000 —- 
be 


rr 200 
$F OS 
BS Bey 


c000e4 
shee 
000001 


001304 


ork 


100000 
055235 
O46676 


001262 


001224 


001110 


001600 


001600 


001552 


001460 
057702 


MACY11 27(1006) 
T110 


E13 


ATTENTION FROM OTHER BRIVE 


SVAL AND 

TST110: SCOPE 
HOV 820. ~gSTINES 
J ete a 
CMP (SP)+, #1 
BHI 2s 
TST $PASS 
SNE 1S 
TYPE OPRO1S 

18: IMP $E0P 

2s: MOV STMP1 
MOV SDE, RS 
eth 

R a 

MOV T1,R 
MOV #1 R4 
MOV 83$, SLPERR 
BR 115 

38: ssiNIt 
ERROR. 3 
MOV RO,L.CS2 
MOV RO’ ORVNUM 
MOV #RECAL,L.CS1 
TL 
TWATIE 
ERROR 
TCHKOP 
ERROR 4 ;0R5, 6, 7 
CLR INTSET 
Hoy RE’ avium 
MOV #SELDRV,L.CS1 
TLOADRK 
TWATIG 
ERROR 2 
TCHKOP 
ERROR 4 ;0RS, 6, 7 
BIT #SVAL,T.DS 
BNE 4§ 
MOV #EMSVAL , EMLIN 
MOV sOPEROO, DFO11A 
ERROR 11 

4g: CLR INTSET 
TWAT2S 


D0 ITERATIONS 
Ae Pe hdnteh or Bieta. OF DRIVES) 


SIP iF MO THAN 1 
CHC IF PASS 0 


Tour OPERATION BYPASSED” 


eet LOOF Of CONTROL. FLAG 

ee FEI 

1 PE CB lan 
SET UP POINTERS 

SE PEAR 

;LOAD DRIVE A 


; LOAD FOR REPORT 
;LOAD RECAL 


: LETE ERROR 
5 Ex OFE orem TONE N_FOR ANY ERRORS 
;CLEAR INT FLAG 


ILORD POR ReBoRT 


;LOAD DRIVE SELECT 

;LOAD RK REGS 

tart FOR INTERRUPT 

:TO SLOW/NOT COMPLETE ERROR 


;CHECK_ OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


{CHECK JF STATUS VALID SET 
: VALID NOT SET RESULT OF 
DRIVE SELECT™ 


;CLEAR_INT FLAG 
:WAIT FOR SEEK COMPLETE INTERRUPT 


fis 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC macylt 27( 1006) -0CT- SES 0161 


h OTHER DRIVE 


DZREKC.P11 O1-OCT-76 13:08 SVAL AND A TeNtIOn F' 
8691 030214 000401 BR 44 ;NONE RECEIVED - SKIP 
8692 030216 OO040& BR sss : RECEIVED - SKIP 
Brae 030220 010037 001626 44S: MOV RO, DRVNUM +37 DRIVE FOR REPORT 
8695 030224 012737 OS7e7e 001372 MOV 80HO17, DHEN “COMMAND - SELECT AFTER RECAL” 
8696 030232 104002 ERROR 2 
e2 a ee ipo000 oolss2 | OBtT  eSVAL,T.0S ETT IF EVAL STILL SET 
a Baosan rast Ete & tite : vee - exiP 
8702 O302% 012737 OS5235 001510 MOV BEMSVAL,EMIYN  ;"STATUS VALID RESET RESULT OF 
e703 paess 016737 057315 057702 V 80HO18,0FO11A =:RECAL COMPLETE ATTENTION AFTER SEL” 
104014 : RROR 14 
Ero 030264 104415 Ss: SCOP1 sLOCAL LOOP TO 3$ 
ere 5 : THE FOLLOWING CODE CAUSE ris TEST TO fu ON EVERY COMBINATION 
8710 : OOMEeT NUMBER. DRIVE’ AS te Me NEXT HI eiive ae 
gli : " THE SECOND PR PASS Sie S. RIVE a bBo ere Uses 
13 : AS A. THE F ot PAS 
ata ; UNTIL ALL DRIVES Paes ‘Se 6-4-8 "taal, THE MIS. CONT INES 
ie to pe 
8717 : THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE 
718 : THRs HIGHES THEY ARE SWAPPED ON THE NEXT PASS. 
8720 : THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE 
8721 : CHECKED. 
555 030266 005237 001224 11S: INC STMP1 s INC RENENT | PASS CONTROL 
8724 030272 001024 BNE 16$ : SKIP T ZERO 
eres (IT WiLL "Be ZERO ON THE 1ST PASS) 
8727 030274 123: BIT R3, RS ;TEST IF BIT POSITION FOR A AT AVAIL DRIVE 
728 030276 901006 BNE 13 : YES-SKIP 
8730 030300 oos200 225: INC RO ;BUMP RO (DRIVE A) 
8731 030302 006302 BSL RS a8 ae SHIT DRIVE 3 SELECT BIT ONE POSITION 
£335 10 arta eestee BEG leg’ :BEEN cHECKED;» IF nor Be tite NEXT POSITION 
8734 O303i2 OO00464 BR SOs : DONE-EX 
B73 030314 = 1 138: MOV RO,R1 ;SET DRIVE 8 TO THE SAME AS A 
030316 O1 MOV R3; 
8738 030320 005201 14$: INC Ri pump DRIVE B) 
8733 b20%e2 BSL RY IFT SELECTOR BIT ONE POSITION 
B R4Y_RS IS THIS DRIVE AVAIL? 
8741 030326 001004 BNE 1s$ : YES-SK 
8742 030330 000400 BIT #81T8,R4 ‘WERE ALL POSITIONS CHECKED? 
8743 030334 001771 BEQ 14§ :NO-LOOP 
8744 030336 o004Ss2 BR cos : DONE-EXIT 
Sue 030340 000137 030070 1S$: IMP 3$ :GO DO THE TEST ON THE DRIVE A 8B 


NT 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC 47 A 27(1006) OS-OCT-76 09:17 PAGE 162 “SEG O1S2 


DZRGKC.P11 O1-OCT-7& 13:08 110 SVAL AND ATTENTION FROM OTHER DRIVE 
8747 s CONTAINED IN RO & Ri 
8748 030344 00000: 001224 16$: BIT SBITO,STMP1 © ;IS PASS FLAGS ODD? 
8749 0303S2 001410 BEQ 17$ ° 3NO-SKIP 
E521 030354 01 mov RO, -(SP) J, 
8752 030356 010346 MOV R3,-(5P) :SWAP RO & RI, R38 RY 
e733 930360 b104G3 MOV R4'R3 :TO EXCHANGE ORIVE A 8 B 
101 MOV R1'RO 
8755 030364 012604 MOV (SP)+,R4 
ere 030366 O1ee01 MOV (SP)+°R1 
? 000137 030070 IMP 33 ;REPEAT TEST ON THIS COMBO. 
se 030374 032737 o00002 o01224 178: BIT #BIT1,$TMP1 ;TEST IF PASS FLAGS AT HALF MODULE 4? 
8760 020402 O01410 BEQ 19$ *NO-SKIP TO BUMP DRIVE B 
8761 030404 O05200 18S: INC RO sBUNP RIVE A ect BIT 
Boe 63041 popshe art R3,R5 AVAILABLE? 
8764 le 001014 BNE 20 : YES-SKI 
8765 030414 9032703 o00400 BIT #8178,R3 ALL CHECKED? 
8766 030420 001771 BEQ 18$ *NO-SKIP 
8767 O304e2e o00412 ae 21S *GO TO NEXT PASS 
Eoe8 030424 005201 19$: INC Ri ;BUMP_ DRIVE B 
8770 O30426 006304 ASL RY *SHIFT DRIVE SELECT BIT 
8771 030430 O3040s BIT R4_RS : AVAILABLE? 
8772 030432 001004 BNE 20$ : YES-SKIP 
8773 030434 032704 oD0400 BIT #81T8,R4 “ALL CHECKED? 
erm 030440 001771 BEQ 19$ :NO-LOOP 
O30442 o00404 . BR 233 ?YES-SKIP TO NEXT PASS 
£558 ° 030444 000137 030070 208: §§ JMP 3 GO TEST THIS COMBO 
tae 030450 010100 e 1$: MOV R1,RO ;SET DRIVE 0 TO Low POSITION THIS PASS 
8780 O30452 010403 . MOV RY’ RI :SET SELECT ITs T 0 AGREE 
8781 O30454 001224 23$: CLR STMP1 :CLEAR PASS FLAGS 
8782 O30460 000137 020300 IMP 225 :GO SET UP 
8783 O30464 OS: 
8784 H ELAR SSSELRSLE KALE RESEEAASAE LS REL SRERA RAS RARERAAREEA LARKALEAERLAKE P 
gree jETEST T lil OVERLAPPED OPERATIONS \ 
:* ¢ 
8787 1% D0 A RECAL [BRATE ON BOTH DRIVE A AND DRIVE B. ISSUE 
8788 :# SEEK ON DRIVE A TO CYLINDER 1. IMMEDIATELY ISSUE A WRITE 
8789 1 DATA TO CYLINDER 100, TRACK 0, HEAD O ON DRIVE B. 
8790 ti AT THE END OF THE pata TRANSFER NO ERRORS SHOULD 
8791 i BE SET AND DRIVE A HAS ATTENTION SET. 
gras is REPEAT FOR ALL COMBINATIONS OF TWO DRIVES. 
8795 :# NOTE: IF ONLY ONE DRIVE IS AVAILABLE THE 
7% i TEST WILL NOT BE DONE. 
8798 : © LEGER LLSLLES ERASE SESE R SAAS RAEERSREK ALLA A AAA AAS RE REEL AAA LAER EREL 
8799 020464 000004 87111: SCOPE 
200 030466 012737 o00024 o0l1262 MOV #20. ,STIMES :;D0 20. ITERATIONS 
8802 030474 012737 177777 OOl224 2S: MOV #-1,STMPL ;SET LOOP CONTROL FLAG 
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TROLLER opiacnostic MACY11 27(1006) OS-OCT-76 09:17 PAGE 163 SEG 0163 
Tl1ll OVERLAPPED OPERATIONS 
001354 Hoy SDEVM, RS GET DEVICE MAP oo 
KLE Ri tet ERR FoR VE rts} 
900001 MOV #1,R3 *SET DRIVE POSITION A 
900001 MOV #1°R4 :SET DRIVE POSITION B 
030532 001110 MOV #3, SLPERR :SET LOCAL LOOP ON ERROR 
“a BR 115 :GO SET UP POINTERS 
; TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
991 MOV RO, DRVNUM ;STORE DRIVE FOR REPOR 
00161 MOV RO'L.CSe :SETUP DRIVE A TO RECAL 
000113 001600 MOV #RECAL,L.CS1 
TLOADRK ;LOAD RK REGS 
TWAT 16 ; WAIT FOR INTERRUPT 
ERROR 2 -TO SLOW/NOT COMPLETE ERROR 
001662 CLR INTSET ?CLEAR INTERRUPT FLAG 
TWATBS ;WAIT FOR SECOND INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
000105 001600 Hoy WCLEAR,L.CS1  ; SET UP TO CLEAR DRIVE 
THATKe WAIT FOR INTERRUPT 
ERROR 2 ?TO SLOW/NOT COMPLETE ERROR 
: TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5, 6, 7 ;REPORT ALL ERRORS 
040000 001540 BIT #01'T.cSi :TEST IF OI STILL SET 
BNE ug YES - LOOP 
001626 R1, DRVNUM “STORE DRIVE FOR REPORT 
001610 MOV R1’L.CS2 :SETUP DRIVE B TO RECAL 
000113 001600 MOV #RECAL,L.CS1 
TLOADRK ;LOAD RK REGS 
TWATI6 *WAIT FOR INTERRUPT 
- ERROR ?TO SLOW/NOT COMPLETE ERROR 
001662 CLR INTSET *CLEAR INTERRUPT FL 
TWATBS WAIT FOR SECOND INTERRUPT 
ERROR 2 *TO SLOW/NOT COMPLE OR 
000105 001600 MOV #CLEAR,L.CS1 § ;SET UP DRIVE CLE 
TLOADRK “LOAD RK REGS 
TWATIE ;WAIT FOR INTERRUPT 
pe ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
$ TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7 :REPORT ALL ERRORS 
040000 o01540 BIT #01; T.cSi :TEST IF OI STILL SET 
BNE S$ *YES - LOOP 
001626 MOV RO, DRVNUM :ST ORE DRIVE FOR REPORT 
001610 RO;L.CS2 :SETUP DRIVE A TO SEEK 
000091 001614 MOV #1°L.OCYL :TO CYL 1 
i? 001600 MOV #SEEK,L.CS1 


a a ee ee 
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Bees 030732 eas 
SBS ihe 
8864 030740 010137 001626 
8865 030744 010137 001610 
8866 030750 012737 100 
8867 hanooe pists? 177400 
Sa Bie Hee ie 
8870 
8871 031000 104417 
Be-3 1002 1 
8874 031004 1 
Be7e 1 104421 
SF IR iste 
8878 
ee fang (am mies 
8881 031022 001007 
8882 031004 012737 oss4e21 
8883 031032 012737 047010 
Sees 031040 104011 
8886 031042 104415 
8887 
8888 
gees 
8890 
8891 
8892 
8893 
8894 
8895 
BES 
8897 
8698 
e899 
8900 
8901 
8902 
8903 031044 005237 001224 
8904 031050 001024 
8907 0310Se 9030305 
ee 031054 001006 
8910 031056 005200 
eald mates) 006303 00 
pa Bie Bem 
8914 031070 000464 


a ee St te 


001460 
057702 


be 
ee 


118: 
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ees: 
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OVERLAPPED OPERATION 


Tat & DAI IT FOR 7 PT 

ERRO! TO SLOW/ a AN EBNPL LETE ERROR 
MOV R1, ORVNUM ; STORE DRIVE FOR REPORT 

MOV R1.L.CS2 a uP DRIVE B TO WRITE DATA 
MOV #100.L.DCYL iA CYL 

mw eS 

MOV SORDATAL L.cSi 

TLOADRK sLOAD RK REGS-DO WRITE 
TWATBO sWAIT FOR INTERRUPT 

ERROR 2 $70 SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5, 6, 7 ;REPORT ALL ERRORS 


MOV RO, ORVNUM ;STORE DRIVE FOR REPORT 
BiB 7, Ae -ASOF +1 ;CHECK IF DRIVE ATTENTION IS DRIVE A 


; YES-SKIP 
MOV #EMDA,EM1IN s"DRIVE ATTENTION NOT SET RESULT OF 
MOV eK, *DFOLIA ; SEEK” 
SCOP 1 ;LOCAL LOOP TO 3§ 


abet ticen AVAILABLE. os a FIRST PASS OF THE PROGRAM WI 


Ey R ORI A AND THE NEXT HI R DRIVE AS 
8. THE SECOND PAS S DRIVE A&B. THE THIRD PASS USES 
THE LOWEST NUMBER DRIVE AS B AND THE 3RD HIGHEST NUMBER DRIVE 

THE FORTH PASS SWAPS A & B AGAIN. THIS CONTINUES 
UNTIL ALL DRIVES HAVE BEEN TESTED WITH THE LOWEST NUMBER 
THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE 
THIRD HIGHEST AS B. THEY ARE SWAPPED ON THE NEXT PASS. 
THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE 
CHECKED. 
INC STMP1 s INCREMENT PASS CONTROL 
BNE 16$ :SKIP IF N 

(IT WILL be ZERO ON THE 1ST PASS) 

BIT R3,RS ;TEST IF BIT POSITION FOR A AT AVAIL DRIVE 
BNE 13$ : YES-SKIP 
INC RO ;BUMP RO (DRIVE A 
ASL R3 SHIFT DRIVE SELECT BIT ONE POSITION 
BIT #81T8,R3 :IF BIT 8 IS SET, ALL DRIVES HAVE 
BEQ 12$ sBEEN CHECKED: IF NOT CHECK NEXT POSITION 
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RoR 8 


fururo 


3 
BEGGR00 BOOGGHOOR BOwwwoE 
TNO 


ee ee en ee en oe oy ee ee ee ee ee ee eer oy ed ed ee ee ee od 


8 


e9ss 
8957 031222 
8958 
e9s9 
8961 


000001 


030532 
000002 


000400 


000400 


030532 


001224 
031056 


001224 


001224 


138: 
14S: 


15S: 
16S: 


178: 
18$: 


19S: 


20$: 
els: 
238: 
50S: 
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OVERLAPPED OPERATIONS 


#8170, STMP1 
17$ 


RO,-(SP) 
R +2 SP) 


SEG O15 


;SET DRIVE 8 TO THE SAME AS A 
;BUMP_R 

: SHIFT 4, (PR on Bit ONE POSITION 
315.7 HIS DRIVE AVAIL? 

:WERE ALL POSITIONS CHECKED? 

IONE SEXIT 

;G0 00 THE TEST ON THE DRIVE A & 8 


;CONTAINED IN RO & 
:1§ PASS FLAGS ODD? 
;NO-SKIP 


iSWAP RO& R1, R38 R4 
TO EXCHANGE DRIVE A & B 


;REPEAT TEST ON THIS COMBO. 
s TEST IF PASS FLAGS AT HALF MODULE 4? 
P TO BUMP DRIVE B 


:SHIFT DRIVE SELECT BIT 
sAV AIL mae? 


; YES-SKIP 
sALL CHECKED? 


'60. TO NEXT PASS 
;BUMP DRIVE B 
;SHIFT DRIVE SELECT BIT 
; AVAILABLE? 
; YES-SKIP 
sALL CHECKED? 
;NO-LOOP 
:YES-SKIP TO NEXT PASS 
;GO TEST THIS COMBO 


;SET DRIVE O TO LOW POSITION THIS PASS 
:5 S TO AGREE 
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e364 ! .SBTTL END OF PASS ROUTINE 
eos 5 HALAL LALAAALA LAL AALA ARLE REALL RA EE ALLER ELLA LARA LE LLLAA ALLELE 
8967 4 NCREMENT THE PASS NUMBER ($PA $5) 
e968 *TVPE “END P PASS BKKAAX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YvvvY™ 
9969 WHERE XXXXX DECIMAL NUMBERS 
a SF SEs 8 
1 :#IF THERE ISN’ rt! 

8973 o31242 SEOP: 
Eaoe Bat 44 teh 001102 argre $TSTNM $3 ZERO THE TEST NUMBER 
8976 031250 005037 O01262 CLR STINES ER HE NUMBER OF veer 
Bara aised pases7 oneod 001304 aye = $G8000,seass og NB NEG 
8979 031266 005327 ste DEC (PC)+ 
a BP bt. Hi 

1 1 MOV (PC) +, a(PC)+ tt RESTORE COUNTER 
9983 031276 09 OL SENDCT: gHORO 
eooy ax 
g98S B3t3ae rere 031310 TYPE S$ s;TYPE ASCIZ STRING 
8986 031306 000407 BR 4§ GET OVER THE ASCIZ 
8987 .65$: -ASCIZ <12><15>/END PASS’ #7 
e988 031326 bas: 
8989 031326 013746 001304 MOV SPASS, -(SP) ;;SAVE SPASS FOR TYPEOUT 
8990 ;; TYPE PASS NUMBER 
9991 031332 104405 TYPDS GO TYPE--DECIMAL ASCII WITH SIGN 
8992 031334 104401 031342 TYPE 675 ii Type ASCIZ STRING 
8993 031340 O00421 BR 66S T OVER THE RSC1Z 
Ba94 --67$: .ASCIZ 7 TOTAL ERRORS aise LAST REPORT / 
8995 031404 66S: 
B36 031404 013746 01112 MOV SERTTL,-(SP)  ;;SAVE SERTTL FOR TYPEOUT 

:: TOTAL NUMBER OF ERRORS 

8998 O31"10 104405 TYPDS :G0 TYPE--DECIMAL ASCII WITH SIGN 
8999 031412 104401 001273 TYPE SCRLF :: TYPE CARRIAGE RETURN, LINE FEED 
9000 031416 605037 901112 CLR $ERTTL ;;CLEAR ERROR TOTAL 
$001 031422 013700 o0004e SGETH2: MOV aed2. RO ::GET MONITOR ADDRESS 
9002 031426 001405 BEQ SDOAGN *BRANCH IF NO MONITOR 
3003 031430 o00005 RESET CLEAR THE WORLD 
8004 031432 004710 SENDAD: JSR PC, (RO) G0 TO MONITOR 
8005 031434 o00240 NOP ::SAVE ROOM 
8006 031436 O00240 NOP : 
3007 o31440 000240 NOP :ACT1I1 
9008 31442 SDOAGN: 
8099 031442 000137 IMP a(PC)+ _ :;RETURN 
8010 031444 003116 SRTNAD: .WORD TST1 
3011 031446 na1tes 377 000 $ENULL: -BYTE -1,-1,0 ;;NULL CHARACTER STRING 
ai .SBTTL ROUTINE TO SIZE MEMORY 
ante $ CT gegeeepmapametp cence meter eraprers erst 
9017 is ISR PC, $SIZE 
9018 N 
9019 i SSLSTAD WILL CONTAIN: - 


= 
a 


re. 


b= b+ bs Hs Bs pe Be 


OoO~r OONO0000 


j 


te 


BESS SaREod 
4 


par py 

£vo 

os ate 
Bes 


SHOR 


uy 
a 


RENEE 


roo 
ot sed ood 
rnmVo 


SOEUR RTERE CUM UNNTUN ON SSSA RTOS e SaaS ORS SUS IND ONESS 


BSGOGGGOGG GOOD GOOD GDTOOOTOO DOOD OOOD OOO Baie 


FERBESSeSe 


NX 
oO 


a8 
oo 
2 


ra} 
2 


g WwW 
Bb ba bs bs bb bb be bt bh bs be bs = bh be be ee ee ee ee ee 


000004 
000006 


ies to 
10 
077406 
000200 
177600 
031610 
000020 
177572 
031642 
143776 
000040 
172356 
177$72 
100000 
031710 
Bo0040 
40 


177776 
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oooco4 
172516 


000004 


MOV 
;;SET THE ERRVEC PS TO THE present Ps PS 






L13 
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ROUTINE TO SIZE MEMORY 
a he KT11 U1 ObT ON -- LAST VIRTUAL ADDRESS OF THE LAST BANK 


-- LAST UTE ADDRESS OF AVAILABLE MEMORY 
A Sa 


‘ey wit the BSPARY Tt T ST oT PK A 
T 


? must BE at 
= 0 DON’T HAVE MEMORY MANAGEMENT OPTION 
DETERM 


INED BY ROU 
RO, -(SP) ;:SAVE RO ON THE STACK 
R1,-(5P) ?:SAVE R1 ON THE STACK 
R2,-(SP) ::SAVE Re ON THE $I ACK 
R3:-(5P) ::SAVE R3_ON THE STACK 
JHERRVEC, - :SAVE PRESENT ERROR VECTOR PS & PC 
SNERRVECH, ot ep) 
SP, RO -SAVE THE STACK POINTER 
:PUSH OLD PSW AND PC ON STACK 
(SP)+, JKERRVEC+2” -:SAVE THE PSW IN aJ#ERRVEC+2 
#3776,R1 ;;SETUP ADDRESS 
(PC) + ;;USE MEMORY MANAGEMENT? 
200 ;;SET TO USE MEMORY MANAGEMENT 


SCORE ;BR iF NO 
eS , DHERRVEC: ; ie ARe YOU TIMEOUT 
|; aati HYES--SET 


: IN 
#KIPARO, R2 t ADDRESS OF F 
#tD8 ?:LOAD EIGHT ppRaT Se BND EIGHT “PDR.’S" 
477406, 40 (R2) ;3POR = 4K, UP, READ/WRITE 
#200' (SP) : OPOAT — FOR NEXT “PAR” 
R3, 1 LOOP UNTIL ALL EIGHT ARE LOADED 
#177600, -(R2) Healt, KIPAR7 FOR 1/0 
-(Re) : SETUP KT pane FOR TESTING 
#25, JHERRVEC $ CATCH TIMEOUT IF NO SR3 
#20; d#SR3 j ENABLE 


THIS POP=11 HAS A SRI REGISTER 

(SP)+, (SP)+ HOtERy OFF THE STACK--NO SR3 
ri TURN ON MEMO 
#SKTOUT DHERRVEC j -SET FOR TIME OUT 
a814377 776 : TRAP ON NON-EX-MEM 

(Re) + MAKE A 1K STEP 
SaKIPER?, (R2) 5; LAST 
4§ : :NO--TRY it 
(R2),R2 ;}GET LAST BANK+L 


$SIZEX 
#100000, $KT11 psKTL1 WOn-exto rent 
#SCROUT, OWERRVEC ; ;SET ei 


Re 

#4000,R1 t PTNCREMENT BY 1K 
ey ee 33 

(Rl 3; TRAP ON TIME OUT 
#177776,R1 ;;LAST ONE 

1$ ;;NO--TRY AGAIN 
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9076 031710 162701 O04000 SCROUT: SUB #4000, R1 
9077 031714 162702 OOCO40 $SIZEX: SUB #40 ::DROF BAC 
2078 1720 gl MOV RO, SP TORE HE STACK 

17ee O1 p00006 MOV (SP) + }+ , OHERRVECE STORE ERROR VECTOR 
oa hie bite bie RY ArmeHBS"  togr anes 

’ : 

Q0g2 13 ptB35 ieee MOV RE seta TBK trast BANK / 
9083 O31 7Me Olebd3 HOV (P+, R3 s $RESTORE R3 R3 
apee Bai ode 12601 MOV (8p }3°Ri REST ORE Ri 
9086 031750 012600 MOV (SP)+,R0 : :RESTORE RO 
2087 031 75¢ RTS Pc 

1754 anaee SLSTAD: .WORD 0 ;;CONTAINS THE LAST ADDRESS - 
s089 031756 900000 SLSTBK: .WORD O ::CONTAINS THE LAST BANK 
2030 -SBTTL SCOPE HANDLER ROUTINE 
90932 See eee eee reeren a tart nrotun ae Matera ET Mili TRCREREN 
9093 t STHIS _ ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
9094 j #AND TEST NUMBER(S STNM) INTO THE DISPLAY REGS (DISPLAY<7:0> ) 
9095 SAND LOAD THE ERR OR FLAG (SERFLG) INTO DISPLAY<15:08> 
208 iT SWITCH OPTI PROVIDED BY THIS ROUTINE ARE; 
9098 SUL L=1 INHIBIT ITERATIONS 
3099 : *SWO9=1 LOOP 
9100 : *SWOS=1 LOOP ON TEST IN SWR<7:0> 
$101 > *CALL 
ais 3% SCOPE ;;SCOPE=I0T 
9104 031760 SSCOPE: 
9105 031760 104407 SWR -TEST FOR CHANGE IN SOFT-SWR 
9106 :;GO TO ERROR ROUTINE IF RETURN bé Less THAN 1002 
$107 : OTHERWISE CONTINUE 
8108 031762 O21 001002 (SP), #1002 ; s UNEXPECTED TRAP oR INTERRRUPT 
$109 031766 10100e BHI ARE TRAPPED HERE VIA IOT 
9110 031770 000137 033000 JMP SERROR ::GO PROCESS UNEXPECTED TRAP 
9111 031774 O32 040000 147136 1S: BIT. #81714, ISWR ;;LOOP ON PRESENT TEST? 
9112 032002 001131 BNE R ‘YES IF SW14=1 
$113 javeesSTART OF CODE FOR THE XOR tesreReats 
$114 oO32004 o00416 $XTST 6$ ;1F RUNNING ON THE "XOR™ TESTER CHANGE 
9115 HIS INSTRUCTION TO A "NOP" (NOP=240) 
9116 032006 013746 MOV J#ERRVEC, -(SP) $3 Tite THE CONTENTS OF THE ERROR VECTOR 
9117 032012 012737 032032 o00004 MOV 85S, d#ERRVEC ;;SET FOR TIMEOUT 
8118 032020 005737 177 TST 38177060 >: TIME OUT ON XOR? 
9119 012637 o00004 MOV. (SP)+, J#ERRVEC j SRESTORE THE ERROR VECTOR 
9120 032030 o00S00 BR $SvLAb TO THE NEXT 
9121 032032 Oe2b26 SS: CMP (SP)+, (SP)+ i ECLEAR THE STACK TEeTER A TIME OUT 
9122 032034 012637 oo0004 MOV (SP)+; JHERRVEC ;;RESTORE THE ERROR VECTOR 
9123 032040 O00440 BR ON THE PRESENT TEST 
9124 oO3204e 6$:;##eaKEND OF CODE FOR THE XOR tECTERSAEES 
9125 oO32042 000400 147070 BIT #B1TO8, ISWR : iL OOF ON SPEC. TEST? 
9126 032050 001421 BEQ F NO 
9127 032052 OOSO4E CLR -(SP) CLEAR A TEMP. LOCATION 
9128 032054 117716 147060 MOVB  a@SWR, (SP) : PICKUP THE DESIRED TEST NUMBER 
9129 001414 BEQ 8$ ‘BRANCH IF BAD TEST NUMBER IN SWR 
9130 022716 000111 CMP #111, (SP) *:CHECK THE NUMBER IN THE SWR 
9131 032066 O02411 BLT 3S ::BRANCH IF TEST NUMBER IS OUT OF RANGE 
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3132 032070 011637 001102 mov (SP), STSTNM s UPDATE THE TEST NUMBER 
2133 032078 006316 pet (SP) $B re one NUMBER AS AN INDEX 
$1 1 16 032304 ADD #SSWOSTBL, (SP) $:FORM THE ADDRESS OF TEST POINTER 
9136 032104 013637 001106 MOV 3(SP)+,$LPADR ;;SET LOOP RODRESS TO DESIRED TEST 
313 032119 SOVER ::G0 LOOP ON THE 
91 il 726 QS: TST (SP)+ CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
9139 032114 105737 001103 23: TSTB 43=s-s SERFLG ::HAS AN ERROR OCCURRED? 
9140 b32120 001421 BEQ 3$ + NO 
9141 le2 123737 001115 001103 CMPB = SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
$142 032130 101015 BHI ::BR IF NO 
9143 032132 032777 001000 147000 ‘BIT #81709, ISWR :LOOP_ON ERROR? 
Fhe b3e140 1404 BEQ ::BR IF NO 
145 142 013737 001110 OO110& 7S: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
9146 032150 o00446 ae SOVER 
9147 032152 105037 001103 4§: CLRB  SERFLG :;ZERO THE EF 20R FLAG 
9148 032156 37 O0l26e2 CLR STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE - 
9149 032162 O00415 BR 1$ * ScAPE TO THE NEXT TEST 
3150 b3ei64 004000 146746 3S: BIT #B1T11,aSWR :: INHIBIT ITERATIONS? 
e123 GasI74 Gost? 001304 ee Bass OR RST PASS OF PROGRAM 
9153 032200 001406 BEQ 1$ He INHIBI Or ERET TONS 
9154 032202 37 001104 INC SICNT INCREMENT ITERATION COUNT 
9155 023737 O01262 001104 CMP STIMES,SICNT | :;CHECK THE NUMBER OF ITERATIONS MADE 
9156 032214 O02024 BGE SOVER ::BR IF MORE ITERATION REQUIRED 
9157 032216 012737 O00001 001104 1S: MOV #1, SICNT : :REINITIALIZE THE ITERATION COUNTER 
9158 032224 0137 b3e302 001262 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
Sieg paee5e tTaP 1108 o1z0e TA INR STEIN crestn fiSeT TEST N NETS APT MAILBOX 
ae Hn 
9161 p35 bt ppt 1 Be MOV (SP), SLPADR SAVE SCOPE LOOP ADDRESS 
9ig2 032250 011637 001110 MOV (SP)’ $LPERR ::SAVE ERROR LOOP ADDRESS 
9163 032254 37 001264 CLR SESCAPE ::CLEAR THE ESCAPE FROM ERROR ADDRESS 
9164 032260 112737 000001 o01115 MOVB #1, SERMAX He ALLOW ONE(I) ERROR ON NEXT TEST 
9165 032266 013777 001102 146646 SOVER: MOV STSTNM, DISPLAY ;;DISPLAY TEST NUMBER 
9166 032274 013716 001106 MOV SLPADR, (SP) ::FUDGE RETURN ADDRESS 
9167 032300 900002 RTI + 
9168 032 003720 SMXCNT: 2000. ::MAX. NUMBER OF ITERATIONS 
9169 032304 $SWOSTBL: 
9170 032304 003120 WORD  TST1+2 ;;STARTING ADDRESS OF TEST 1 
9171 O32 36 WORD  TST2+2 STARTING ADDRESS OF TEST 2 
9172 032310 003324 "WORD TST3+2 :STARTING ADDRESS OF TEST 3 
9173 032312 350 "WORD TST4+2 :: STARTING $s 4 
9174 032314 o044Se2 "WORD TSTS+2 ?: STARTING $s EST S 
9175 30 "WORD  TSTb+e2 ::STARTING ADDRESS OF TEST 6 
9176 004756 "WORD  TST7+2 ::STARTING ADDRESS OF TEST 7 
9177 032322 "WORD  TST1O0+2 ::STARTI SS OF TEST 10 
9178 "WORD  TST1i+e ::STARTING ADDRESS OF TEST 11 
9179 032326 006124 "WORD  TSTle+e +:ST uh SS OF TEST 12 
9180 "WORD  TST13+e :STARTING ADDRESS OF TEST 13 
9181 032332 006476 WORD  TST14+2 ::STARTI SS OF TEST 14 
9182 006630 WORD TST1S+2 STARTING ADDRESS OF 15 
9183 032336 WORD TSTlb+e STARTING ADDRESS OF TEST 16 
9184 032 007230 WORD TST17+2 ::STARTING ADDRESS OF TEST 17 
9185 032342 WORD  TST20+e ::STARTING ADDRESS OF TEST 20 
9186 O32 10140 WORD  TSTel+e :STARTING ADDRESS OF TEST 21 
9187 032346 0105 WORD TSTee+e ::STARTING ADDRESS OF TEST 22 
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S266 
$267 
9268 
9269 
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3555 
$278 
$278 
9286 
$281 
9282 
9283 
964 
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2 
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-WORD ABTFAIL+2 ;ADDRESS OF ABORT FAILURE HANDLER 


~SBTTL APT COMMUNICATIONS ROUTINE 
; SERRESESESELESSSSSESESERESER ESSA ESSE ES SELERSLERERSSSEEE EEE E SS 


Bie ae GLEE ii OP] 


SR sAtyc 
Ty: MOVE  1,SFFLG :;T0 ONLY REPORT FATAL ERROR 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) ;;PUSH R1_ON STACK 
TSTB ss SMG tt TYPE A MESSAGE” 
BEQ os, ;;IF_NOT: BR 
CMP TENV, SENV i$ OPERA RATING UNDER APT? 
TB  SAPTSPOOL,SENVM :: SPOOL MESSAGES? 
Q 3s ss IF $ 
HOV 4($P) ,RO ::GET MESSAGE ADDR. 
1S: TST SMSGTYPE :;SEE 1F* BONE W/ LAST XMISSION? 
BNE 1$ ss IF WAIT 
MOV RO ::PUT ADDR IN MAILBOX 
2s STB (Ro) ::FIND END OF MES 
SUB SMSGAD, RO :;SUB START OF MES 
4 RO sige t S LNGTH IN WORDS 
V , SMSGLGT : PUT TH IN MAILBOX 
HOV 84° SNSGTYPE TELL APT TO TAKE MSG 
38: MOV D4(SP) 4S ;;PUT MSG ADOR IN JSR LINKAGE 
ADD 4(SP) - » BUMP 
MOV 79776, -( ;;PUSH 177776 ON 
ISR C.STYPE ::CALL TYPE MACRO 
ef: . WORD 
10$ TSTB = SFFLG ;;SHOULD REPORT FATAL ERROR? 
BEG 3;IF NOT: 
TST ;;RUNNING UNDER APT? 
Q 12$ 33IF NOT: 
118: ST SMSGTYPE :FINISHED LAST MESSAGE? 
BNE ;;IF_NOT: WAIT 
MOV (SP) ,SFATAL ::GET ERROR 
NC GTYPE ;;TELL APT TO TAKE ERROR 
12S: RB LG + TEAR FATAL Ae 
CLRB ss SLFLG CLEAR LOG FLAG 
$8 be L 
V (SP)+,Ri ::POP STACK INTO Rl 
(SP)+,R0 se STACK IN 
; ;RETURN 
SMFLG: .BYTE 0 ::MESSG. FLAG 
SLFLG: .BYTE 0 ::LOG FLAG 
SFFLG: .BYTE 0 ::FATAL FLAG 


.EVEN 
APTSIZE=200 
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1006) OS-OCT-76 09:17 PAGE 172 
OMMUNICATIONS ROUTINE 


gt a2 
-SBTTL ERROR HANDLER ROUTINE 
5p RRRRRRREEREEREAREREERARRESE RELEASE EEEELELSSESE SR ERSESEE EE LEE EES 


:#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR C 
: #SAVE THe ERROR IT AND THE ADDRESS OF THE ERROR CALL 


NUMBER 
SSTHe SurToH OPT TONS PROV ibeD BY THIS ROUTINE ARE: 
; #SW1S=1 ON E 


, 


Pe 1 HIBS TYPEOUTS 
seeuieet L ON pa 
oo 1 LOOP ON ERROR 
i ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR ;;TEST_FOR CHANGE IN SOFT-SWR 
73: INCE  SERFLG ::SET THE ERROR FLAG 
BEG 7§ ::DON’T LET THE FLAG GO TO ZERO 
MOV STSTNM, ODISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #81710, aSWR ::BELL ON ERROR?. 
BE 1$ ::NO = SKIP 
TYPE SBELL ::RING BELL 
1S: INC SERTTL >:COUNT THE NUMBER OF ERRORS 
MOV (SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
MOVB  aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #81T13, aSWR ::SKIP TYPEOUT IF SET 
BNE 20$ ::SKIP TYPEOU 
CMP (SP), #1002 ::IF RETURN PC LESS THAN 1002 
BHI 123 *:ERROR IS I TRAP 
;;PROCESS UNEXPECTED TRAP OR INTERRUPT 
MOV 4(SP), SE s;GET PC AT TIME OF FALSE TRAP 
SUB #2. SERRPC : ADJUST 
TYPE 10$ :: TYPE HEADE 
MOV SERRPC, -(SP) :: SAVE FOR TYPEOUT 
TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE 11 
Sue 4. (SP) ;;GET FALSE TRAP VECTOR ADOR 
MOV (SP). SERRPC 
MOV SERRPC, -(SP) ;;SAVE SERRPC FOR TYPEOUT 
TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE SCRLF 
cH 1SP)+, (SP)+ ;;POP FALSE TRAP VECTOR PCSADDR 
10$ BSCIZ (200)'PC= ’ 
11$ ASCIZ ° UNEXPECTED TRAP TO ’ 
JSR PC. TYPERR ::GO TO USER ERROR ROUTINE 
TYPE  ,SCRLF 


E14 
7% 


RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC ACYL! 27(1006) OS-OCT-76 09:17 PAGE 173 SEG 0173 
DZRGKC.P11  O1-OCT-76 13:08 ERROR HANDLER ROUTINE 
20$: 
aes B33558 122737 000001 001316 CMPB ss BAPTTENV, SENV IN Mo 
gaeg BEISSR oo1114 033242 Ate -Strene. 21s HIND, SHE, PT gs EE NUMBER 
9360 033236 004737 9032550 JSR PC, SATY4 ::REPORT FATAL ERROR TO AP 
336 21s: VTE C 
*BYT : 
5 145666 ss = UOT OR ERROR 
dace faascs Barr? a bi arte TP CONTINUE 
$366 023254 000000 HALT ::HALT ON ERROR! 
9367 033256 104407 CKSWR si TES FOR CHANGE IN SOFT-SWR 
$368 033260 oo1000 145652 3$: . BIT #81709, ISWR ‘LOOP ON ERROR SWITCH SET? 
a35 $aaee8 SaaeCE my OU ssBR IE NO 
13716 001110 MOV SLPERR, (SP) :!FUDGE RETURN FOR LOOPING 
9371 033274 001264 4g; TST SESCAPE 3 CHEEK FOR AN ESCAPE ADDRESS 
933300 1402 BEQ 33 55 BR F NONE 
13716 001264 ~ MOV SCAPE,(SP)  ::FUDGE RETURN ADDRESS FOR ESCAPE 
Gssabe 3 982737 031432 oo0042 CMP SSENDAD, 2842 ;;ACT-11 BUTO-ACCEPT” 
14 001001 BNE 6$ ::BRANCH IF 
033316 HALT :: YES 
033320 6S: 
033320 oop002 RTI RETURN 
gvseeneeaeensenseneeceaeeeceedianeonenneanenneanesnssneoneanes 
TTL YEE ERROR ROUTINE 
: #ENTRY Jor PE 
j#RET URN RTS ba 


isTHs HIS ROUTINE USES THE “ITEM CONTROL errr (SITEMB) TO pereanS WHICH 
REPORTED. IT THEN USES THE “ERROR TABLE” (SERRTB) 
s HENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING 


te 
jj Sesedeeseeueneesconeeusnnesensecesedsecsanssessconeccsenszenee® 


HPERR 


SSASSSRALESE IS TISSUES 


033322 SAVRE 
033324 113737 001102 001302 MOVB § STSTNM,STESTN ;GET TEST NUMBER FOR REPORT 
033332 042737 177400 001302 BIC 8177400, $TESTN ;CLEAR UNUSED BITS 
633340 413700 001114 MOVE $1 RO ;ENTER ERROR NUMBER 
O4 1 BIC #177400, RO *CLEAR UNUSED BITS 
033350 005300 DEC RO ‘FORM INDEX FOR ERROR TABLE 
033352 006300 ASL RO 
baasee | DOESon feat ORD 
033356 ASL RO 
033360 062700 001360 1S: ADD #SERRTB, RO ORM ADDRESS OF ERROR ENTRY 
033364 012037 033400 MOV (RO)+,2$ toe EM POIN 
033370 001404 BEQ ; BRANCH Ae Re ISN’T ONE 
033372 104401 001273 TYPE  ,S$CRLF iT ARRIAGE RETURN LINE FEED 
033378 iowuo! TYPE ERROR MESSAGE (EM) 
2s: .WORD OO 7M NTER GOES HERE 
023402 012037 O33416 3S: MOV (RO)+,4$ :GET DH POINTER 
033406 001404 BEQ : BRANCH IF THERE ISN’T ONE 
033410 104401 001273 TYPE  ,SCRLF ; TYPE CR=-L 
iP Bas us: HUERO 9 Ahn EE ve 
$410 033420 012001 cs: MOV (RO)+,R1 GET OT POINTER 
9411 O33422 001445 BEQ 20$ :BRANCH IF THERE ARE NONE 


S443 


RKE11 TIONAL 
DZREKC.P 11 01 
S12 033424 
a 033426 
a Bae 
aus 033436 
ai BS 
a BR 
eas 033450 
$3 Be 
aise O334S6 
oe ie 
Se? 033466 
$e BRR 
an 033476 
ou Bee 
$433 033504 
9434 033506 
oe bei 
oe Be 
$e bee 
9440 033526 
9441 033530 
S442 033534 
033536 
033540 
Bes 
033554 
033562 


: 
ae 
tia 


L 
& 


Se 


8 
£ 
o 


-O 
Bae 
oo 


8 


8 az 
QEseNS 


p= tf 
sane 


Sree 


8 
= 
io 
os 


1 


ewe 


005237 
000002 


RO 
:08 


001273 


001273 


001662 


145366 
001632 


031270 


10$: 


118: 


les: 
13$: 


14S: 
15S: 


17$: 
18$: 


20S: 
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OS-OCT-76 09:17 PAGE 174 
TYPE ERROR ROUTINE 


FRO) 

v, 
ROT RS 
SCRLF 
{RO)+,R3 
(RO)+ 

R3 
14s 


12$ 
@(R1)+,-(SP) 


; 


INTERRUPT 


; SET a a SWITCH 


SF bae nos 


Nien 


R OF OH’S 


;GET & SI ORE NUMBER OF DATA WORDS 


L 

$ NOT 

sC INDENT 

: “So! 

; NO-BRANCH 

*GET NEXT DH POINTER 
IF O GET DATA 

: INDENT? 

ive. THEN 


‘DH POINTER GOES HERE 


;GET DATA 


; INCREMENT THE ERROR COUNT 
;CHECK IF SWITCH le SET 


j TYPE “PRO 


*NO, RETURN 
j CHECK IF ERROR THRESHOLD EXCEEDED 
GRAM ABORTED BECAUSE 


;ERROR THRESHOLD EXCEEDED” 
; CHECK IF CHAIN MODE 


tINETIALIZE STACK 
“FORCE END OF PROGRAM 


RT PC 
NON-EXISTANT MEMORY AND Ad ag CHECK HANDLER 
SETS FLAG AND DOES AN RTI. 


T ROUTINE 
THIS IS THE INDICATION TO THE ROUTINE CHECKING 
NON-EXIXTANT MEMORY THAT AN INTERRUPT DID OCCUR. 


: INC 
RTI 


RK611 INTERRUPT HANDLER 
MOST INTERRUPTS FROM THE RK611 ARE HANDLED BY THIS ROUTINE. ACTUAL 


INTSET 


;BUMP THE INTERRUPT COUNTER 


SEG 0174 


a 
f 


? 


G14 
ahi aoe pry t? Fr (4008) woke © 09:17 PAGE 175 SEG 0175 
guee ‘ 


Kb1 
i RRGERIG sg ST MED TERE Sica EO 
RR QE : 


9472 033626 005237 © 001662 INTHLR: INC INTSET ; BUMP THE INTERRUPT FLAG 

373 033632 000002 RTI RETURN. 

pate _ rhe MEMORY PARITY fpaee TRAPS W atts T THE REPORT 

a7 i WILL INCLUDE THE PC HiLt SE BE REPORTED Bonet TNE pacern 

a3 033634 032777 020000 145276 PERHLR: BIT #81713, SUR s TEST IF INHIBIT REPORT 

9481 44] 1 052357 aE :T ITY ERROR MESSAGE 

eugs BD io 5 1 031270 1$ now #1, SEOP FORCE” END OF PROGRAM 

S404 OSSEE8 Bieta vaneter . MOV aS TBCK ep *CLEAN OFF STACK 

sues 033664 000137 031242 IMP 

eo .SBTT K INT R 

Ea 14 3 Lee ee ERR UERRUPT HENOLER WILL INCREMENT THE LCLKTK 

gigs + (LINE CLOCK TICK COUNTER) EACH TIME AN INTERRUPT OCCURS. 

34 70 LCKHLR: INC LCLKTK INC NENT CLOCK TICK COUNTER 

ay neta poss. atelie 145774 IC BST I? OKWLADD *CLEAR MONITOR BIT 

3133 033702 oo00002 RTI 

aaae 3 Dae STION PRESENT TEST AN GETUR NN NRMHERREE ESS 

4 “SBTTL OPTION P PRESENT TEST 

9497 :# ROUTINE CHEERS IF MEMORY PARITY sR TION Sen HE os oad 

A 

Ea x seat ano fet VECTORS ARE SET LP. 

8500 033704 104413 Sprrst: 

3201 033708 ot 1 ooc004 T POIN Q NEM VECTOR ADDRESS 
l 12146 Noy false, -(SP) STORE VECTOR TRON ENT 

Se Rei OT cong RY arnt) ser paroury 

$505 033722 012741 033620 MOV text, -(R1) 3SET VECTOR TO NEM TEST HANDLER 

8506 033726 005037 O0it&e CLR INT :CLEAR IN TERRUPT COUNTER 

9507 03373 012777 1 145742 MOV TT SRNCSRI *LOAD CSR FOR BANK 2 

9c08 000240 NOP 

9509 0332742 000240 

at Saa-4e Boeeay 001662 Mer INTSET ;CHECK IF INTERRUPT OCCURRED 

ae12 ‘BECAUSE OF NEM ON PARITY OPTION REFER. 

2213 Daa7ed pees? ooce00 oo16s6 BES ARGKO.OPTFLG SET PARITY OPTION FLAG 

9515 033762 013700 001706 MOV ; POINTER TO VECT 

9516 033766 012720 033634 MOV #PERHLR,(RO)+  : INSERT HANDLER ADDRESS 

9517 033772 012710 MOV #PR7, (RO) INSERT PRIORITY 

9518 033776 005037 O0ib62 CLR INTSET :CLEAR INTERRUPT FLAG 

9519 012777 1 145674 MO #1, IMMCSRe :LOAD CSR FOR BANK 1 

35 BS t 5340 Supt at BD SHE Nop 

8522 034014 O000cC40 

9522 O34016 005737 o01bb2 TST INTSET ; TEST IN INTERRUPT OCCURRED 


i 


e 


soneanonamnantnns 
ce 


Ppa rion, CONTROL 
Pll 01-OCT-76 1 


032777 
001405 
1057 


RS 


0014 
013716 
000002 


001662 


001000 
001103 
001110 


001660 


at cela 


001656 


14S616 


001656 


145010 


001656 
001654 


OPTION 


3$: 


4§: 


H14 


MACY11 ) po ie 9:17 PAGE 176 
ION BREcENT TES : 


AND SETUP 
;YES - SKIP SETUP 


a aP 1,OPTFLG ; 

L INTSE t :CLEAR INTERRUPT COUNTER 
MOV s9ET POINTER TO VECTOR 
MOV aLCKHL A, ( (RO)+ : 


BODRESS INTERRUPT HDLR 
MOV 8176. SKWLAOD ‘LOAD KW11-L FOR INTERRUPT ENABLE 


NOP 

NOP 

TST INTSET ;TEST IN NEM ON KW11-P REFERENCE 
BNE 4g got BRANCH WILL BYPASS SET UP OF 
BIS CLKPR, OPTFLG T CLOCK PRESENT FLAG 

MOV 3 Rt STORE OLD VECTOR 

CLR IN NTSET bey Ht ENT FLAG 

MOV (SP)+, (RL) 

MOV (SP)+'-(R1) 

RESREG 

RTS PC 


SEBTTL LOOP ON INTERREL ERR ops. THE cn 
L 


1$: 


: BIT cae 


LOOP 

TE US Sk OgPOTH LP OP eee 
13 BE EXECUTED ON 

;CHECK IF LOOP ON ERROR 


BEG . 
TSTB SERFLG :CHECK IF ERROR OCCURRED 
HOV SLPERR, (SP) ;LOAD ERROR RETURN 
RTI + RETURN 
LINE CLOCK cAL TBRA 
hAITS FOR A LINE EL BCK yNTERRUPT To CALIBRATE THE INTERRUPTS 


TO A__MEANINGFUL IN TION 
THE TIMCNT IF THERE IS NO LINE CLOCK. TIMCNT IS USED IN THE 
LINE CLOCK SIMULATOR. 


: CLR LCLKTK ;CLEAR TICK COUNTER 


BIT #LCLKPR, OPTFLG ;TEST IF CLOCK PRESENT 


BNE 1 ~_ SK 

id 316. TINCT +ELSE al TIMCNT 

TST INTSET :TEST IF INTERRUPT HAS OCCURRED 
BNE es ;YES- ABORT CALIBRATION 

TST LCLKTK sHATT FOR CLOCK TICK 

BEQ 1 T YET - LOOP 

CLR LCLKTK OPEAR TICK COUNT 

RTS PC ; RETURN 

LINE CLOCK SIMULATION ROUTINE 

Pale net INE IS USED TO SIMULATE THE LINE CLOCK. TO 


S_ THE ae STORED IN pias IS USED AS THE 


i er 


14 


RK&11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 177 SEG 2177 
DZR6&KC.P11 O1-OCT-76 13:08 LINE CL 5ck SIMULATION ROUTINE 
See, ty UTNE CLOCK’ Trek COUNTER TS BUMPED THEN THE TIMcNT: 
aeg2 :* te RESET “0 16 (REPRESENTS 16 M DF rope ONDE PER LINE CLOCK 
$583 :# TICK). 
Soa ;* 
9585 :# THUS THE ROUTINE RETURNS TO THE CALLER AFTER 1 MILLISECOND 
9586 3 AND BUMPS THE LINE CLOCK TICK COUNTER FOR EACH 16 CALLS. 
S99 ; 
9589 934 14 010046 MYTIME: MOV RO, -(SP) :SAVE RO 
30 16 O13 001652 MOV MICCNT, RO :SET COUNT 
9591 O34222 005737 O01b6e2 1S: TST INTSET sTEST IF INTERRUPT SET 
$592 O34226 001012 BNE rb} 
9593 034230 005309 DEC RO : DECRENE COUNT TO ZERO 
9594 034232 001373 BNE 1$ 
8595 034234 005337 O016S4 DEC TIMCNT sDECREMENT TIMCNT 
9596 O34240 001005 BNE ro} *IF NOT ZERO - EXIT 
9597 O34e42 005237 001660 INC LCLKTK “ELSE BUMP TICK COUNTER 
9598 034246 012737 000020 oo16s4 MOV #16., TIMCNT jRESET TIME COUNT 
9599 934254 912600 2s: MOV (SP)+,RO STORE RO 
3650 034256 000207 RTS PC RETURN 
3602 .SBTTL WAIT FOR INTERRUPT ROUTI 
3603 :* THE ROUTINE IS ENT B OURTEEN TRAP CALLS. THE CALL 
9604 1% SPECIFIES HOW MANY TICKS OF THE LINE CLOCK TO ELAPSE 
9605 * WAITING FOR INTERRUPT. IF INTERRUPT NOT OCCUR 
9606 1 IN T aT PERIOD OF TIME SSAGE I 
9607 : T PRINTED IN, THE ROUTINE) THEN RETURNS TO THE 
9608 i (ee TION FOLLOWING a F INTERRUPT OCCURS THE 
°# 
zie # ET RN de PecA att pas. THE by aN ine INTE ri tr. 
S12 O24260 104413 IWAT8S: SAVREG sENTRY FOR 8 SECOND WAIT 
9:13 O34262 012700 000764 MOV #500. RO 
$614 034266 00463 BR WATSRT 
9615 034270 104413 IWATIM: SAVREG -ENTRY FOR 1 MIN WAIT 
916 O34272 012700 o07246 MOV #3750. ,RO 
9617 034276 000457 BR WAT 
918 034300 104413 IWAT2S: SAVREG ;ENTRY FOR 2 SECOND WAIT 
9619 034302 012700 oo0200 MOV 128. .RO 
9620 306 pnnws3 OR WATSRT 
9621 03431 13 IWATLS: SAVREG sENTRY FOR 1 SECOND WAIT 
9622 034312 012700 000077 MOV #63. .RO 
9623 034316 000447 BR WATSRT 
9624 104413 IWAT1S9: SAVREG sENTRY FOR 160 MS WAIT 
9625 034322 012700 oonole2 MOV #10. .RO 
as is nr marine SRVEE evry om 1 nS un 
9628 034332 012700 oo0011 MOV #9. RO 
9629 034236 000437 BR WATSRT 
220 paige i043 a IWATI2B: SAVREG sENTRY FOR 128 MS WAIT 
9632 024346 000432 _ BR WATSRT 
9633 034350 104413 IWAT112: SAVREG sENTRY FOR 112 MS WAIT 
9634 034352 012700 000007 MOV #7,RO 
9635 034356 000427 BR WATSRT 


J14 
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DZR&KC. 13:08 


Pll 


01-OCT-76 


SERB 
Fan 


001654 


001656 


WAIT FOR INTERRUPT ROUTINE 


IWATS6: SAVREG sENTRY FOR % MS WAIT 
BR WATSRT 
IWAT8O: SAVREG sENTRY FOR 80 MS WAIT 
MOV #5, RO 
BR WATSRT 
IWAT64: SAVREG sENTRY FOR 64 MS WAIT 
MOV #4, RO 
BR WATSRT 
IWATY8: SAVREG SENTRY FOR 48 MS WAIT 
MOV #3,R0 
Be WATSRT 
IWAT32: SAVREG sENTRY FOR 32 MS WAIT 
MOV #2,R0 
ap WATSRT 
IWAT16: SAVREG SENTRY FOR 16 MS WAIT 
MOV #1,R0 
WATSRT: MOV #PRO, -(SP) sLOAD PRIORITY 0 ON STACK 
Nov 85S, -(SP) :LOAD ADDRESS 
Ss: MOV #16. , TIMCNT ;PRESET TIME COUNTER 
ISR PC cLk KCAL °G0 CALIBRATE THE CLOCK 
1S: TST INTSE ‘TEST IF INTERRUPT OCCURRED 
BNE YES - EXIT 
BIT #LCLKPR, OPTFLG seat IF KUL I=L AVAILABLE 
JSR PC, MYTIME ;ELSE CALL SIMULATOR 
2s: CMP LCLKTK,RO j TEST IF ENOUGH TICKS COUNTED 
BLO rt} - LOOP 
TGETRK Pies GET '611 REGS 
MOV T.CS1,R1 :PUT CS1 IN Al- STRIP ALL BUT 
BIC #177741, R1 ; COMMAND CODE; INDEX INTO TABLE 
MOV CHNDLB(AL), DH2N ;AND SELECT HEADER TO IDENTIFY OPERATION 
MOV EM2N MESSAGE” (NO INTERRUPT OR INTERRUPT LATE) 
MOV STESTN, RO :GET OF PRESENT TEST 
ASL RO ‘SHIFT FOR INDEX 
MOV $SWO8TB(RO), sesciBe “LOAD ESCAPE TO ABORT TESTS 
SUB te, , SESCAPE BLT 66 TO NEXT SCOPE CALL 
3S: ADD #2, (SP) rae. RETURN AROUND ERROR 
4g: RESREG j RESTORE REGS 
RTI *RETURN 
.SBTTL “L” REGISTER LOADING ROUTINE 
+ THE PARAMETERS FOLLOWING THE CALL ARE TRANSFERRED INTO 
+ "L™ REGISTERS 1-L.DCYL. L.MR 
1 LOADED IN THIS MANNER SINCE IT IS NOT COMMONLY LOADED 
ii FOR AN OPERATION. L.CS2 IS LOADED FROM DRV 
+ CALL: JSR R4, LRLOAD 
+ COMMAND 
# WORD COUNT 
1 BUS ADDRESS 
* BYTE SECTOR ADDRESS 
* "BYTE . TRACK ADDRESS 


SES 0176 





RK611 FUNCTIONAL SONTROL 
DZREKC.P11 01-OCT-76 1 

9692 

9633 

9694 ala ' 

ee is aie 

9697 034600 pero 

oe in ti 

9700 O3461e 

9701 14 1 

ne 16 Ol ¢ 001626 
12411 

ee te 

[5 is Hae 

9708 

97093 

9710 

9711 

9712 

9713 

9714 034634 005037 001662 

9715 034640 01004 

a8 O34642 010146 

9717 O34644 Ol2e700 001602 

9718 O346S50 010201 

9719 O3465e 062701 cd0002 

9720 O34656 Ole0el 

9721 034660 O120el 

9722 O3466e Ole0el 

9$7e3 034664 012011 

9724 034666 062701 OO00006 

97eS5 O3467e Ole0el 

oo58 74 pi etet 

97 76 062701 000004 

9728 O3470e 011011 

9729 034704 013712 001600 

9730 034710 O12601 

9731 O3471e 012600 

$732 034714 000002 

9733 

9734 

9735 

9736 

$737 

9738 

9739 034716 O10046 

9740 034720 010146 

9741 034722 010346 

9742 034724 012700 001540 

9743 034730 010201 

9744 034732 O12e703 000012 

9745 034736 012120 

8746 034740 005303 

9747 O34742 001375 


ae 


LRLOAD: 


1S: 


1$: 


ate AecESTER L 


V RO,- (SP) 

V Ri; { 
MOV #L.CS1, RI 
MOV #4.R0 
M : {R}4, (R1)+ 
BRE 
MOV BRVNUM, (R1)+ 
TST (R1)+ 

(R4)+, (RL) 
(SP)+/R1 

MOV (SP)+,RO 
RTS RY 
LOAD RK611 FOR OPERAT ION 
THE REGISTER SETUP 
THIS IS A ST’ 
OF THE RE 
SHOULD BE IF THE GO BIT 
CLR INTSET 
MOV RO, -(SP) 
MOV Ri; -(5P) 
MOV R2,R1 
ADD #2'R1 
MOV (RO)+, (RL)+ 
MOV (RO)+) (R1)+ 
MOV (RO)+) (R1)+ 
MOV (RO)+; (RL) 
ADD . #6.R1 
MOV (RO)+, (RL)+ 
MOV (RO)+; (R1)+ 
ADD #4.R1 
MOV (RO), (RL) 
MOV L.csi, (Re) 
MOV (SP)+'R1 
MOV (SP)+°RO 
RTI 
STORE RK611 REGISTERS 
THIS ROUTI 
MOV RO,-(SP) 
MOV R1,-(5P) 
MOV R3,-(5P) 
MOV #T-CS1,RO 
MOV Re. R1 
MOV 10.,R3 
MOV (R1)4, (RO)+ 
DEC 
BNE 1$ 


Lelia 


CYLINDER ADDRESS 


RAIGHT R 
GISTER “Go BIT is oe IS TRANSFERRED 


a PAGE 179 


eae chee 
Lata 


7, Foun WORDS INTO “L” REGS 
L080 DRIVE NUMBER 


; PAST ASOF 


su DCYL 
;;POP STACK INTO R1 
;;POP STACK INTO RO 


Is TRANSFERRED TO THE RK611 REGIS 
WITH NO CHECKING OR MANIPULATION 
LAST AS IT 
AR INTERRUPT FLAG. 
:STORE REGISTER 
;GET ADDRESS OF SETUP STORAGE WC 
:PUT R1 PAST RKCS1 
+L COUNT 


s OAD 
;LOAD BUS ADDRESS 
; LOAD DISK ADDRESS 


CSe 
: BUMP Ril TO ASOF 
;LOAD OFFSET 
;LOAD CYLINDER 
; BUMP ~ MR1 


LOAD Csi 
;RESTORE REGISTER 


; RETURN 


RK611 REGISTERS ARE STORED IN THE TEST TABLE T 


T 
WITH The ee OF THE DATA BUFFER WHICH IS NOT STORED IN 


;STORE REGISTERS TO BE USED 


;SET POINTER TO TEST TABLE 
;SET Penres TO RK611 BASE 

T COUNT FOR 1ST 10 REGS 
STORE RKCS1 THROUGH RKSPAR 


SEG 


c179 


ss se sess sss ss 
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READ HEADERS 
9802 3% THE HEADERS IN THE CYLINDER AND TRACK SPECIFIED BY 
; THE FIELDS IN THE “L" REGISTERS ARE READ AND STORED IN 


arg oay7 962701 oo0002 ADD #2,R1 ;BUMP POINTER PAST RKDB 
750 720 anata ey RO) : BUMP POINTE ER Past T RKO 8 
2 8 
| are sti Bis? 2$: Vv (RL)+, (RO)+ Pea 08 ERGOT REHS 
$7 760 005303 DEC R3 
9753 034762. 001375 BNE 2$ 
3754 pa764 3603 MOV (SP)+,R3 sRESTORE REGISTERS 
012601 MOV (5P)+'R1 
8756 934770 (SP)+'RO 
9757 034772 TI ; RETURN 
SBTTL BIT COUNTER IN A WORD 
9759 : HE WORD WHOSE BITS MUST BE COUNTED IS PLACED ON THE STACK 
9760 te BY THE CALLING ROUTINE. THE NUMBER OF BITS FOUND IN THE WORD 
$761 te ARE PASSED BACK ON THE STACK. 
034774 016637 000002 001256 BITCNT: MOV 2(SP) STMP16 = ;GET WORD WHOSE BITS ARE TO BE COUNTED 
ayes heared pioss 001260 CR ipl?” ‘eos § STMP16 FOR COUNTING 
9766 035010 See 000021 MOV rif :SET A SHIFT COUNTER 
aree Bepie Bpeaae 001256 1$ GbR STMP1E Cte E HORD 
aoE8 035022 103407 BCS 3$ WAS BIT SHIFTED OUT A 1? 
977 37 ~ is Noe DENS DERO 
3554 p3e058 Bi dEa3 MOV SP)+.R3 * RE R3 
9773 035032 013766 001260 ojD0002 MOV siMPL> 2(SP)  ;PUT COUNT OF BITS ON STACK 
9774 035040 000204 RTS RY :RET 
9775 O25042 005237 001260 3S: INC STMP17 BUMP COUNT 
9776 O35046 O00766 BR 2g :LOOP 
9778 SBTTL MAINTENANCE CLOCK ROUTINE 
$779 i THE PARAMETERS PASSED TO THIS ROUTINE ARE LOCATED IN THE 
9780 + ADDRESS OFTER THE CALL. THE FIRST BYTE CANTAINS THE NUMBER 
$781 1 OF PHASES ADDRESSES THE CALLING ROUTINE WANTS THE CONTROLLER 
9782 1 CLOCKED THROUGH AND THE SECOND BYTE CONTAINS THE NUMBER OF 
785 * CLOCK TRANSITIONS(PARTIAL PHASES) TO BE DONE. 
9785 O35050 MCLOCK: 
035050 0O10046 MOV RO, -(SP) ;;PUSH RO ON STACK 
9787 035052 O10146 MOV R1’-(SP) *PUSH R1 ON STACK 
9788 035054 112400 MOVB (R4)+,RO ther T NUMBER OF CONTROLLER PHASE {AODRESSES 
035056 112401 MOVB = (R4) +, R1 GET PARTIAL PHASE ADDRESS C 
9791 035060 006300 ASL RO ;MULTIPLY PHASE ADDRESS COUNT BY 4 
9792 035062 0063 ASL RO 
035064 0601 ADD ;ADD IN PARTIALS 
$794 035066 052762 OO00400 o00026 1S: BIS RHEL, RKMRI(R2) SET CLOCK 
9795 035074 O42762 O00400 O00026 BIC #MCLK;RKMRI(R2) ;CLEAR MCLK 
97 035102 005, DEC RO :DECREMENT C 
97 104 0013 BNE 1$ "LOOP IF NOT ZERO 
9798 035106 012601 MOV (SP)+,R1 + BOP STACK INTO R1 
97939 035110 012600 MOV (SP)+/RO POP STACK INTO RO 
9800 O325112 O00204 RTS RY 
9801 .SBTTL Sor 


-——= 


BeRekc.Pi 


Becnne 


tbtp to toepepepepebee 
0 bs hb ee 
WONMOU © Wr-O 


SII 


RADA RA RA 
SITHSEVRERNR Pos 


009010 


a ee 


001656 


001600 


000010 
000020 
000006 
001654 


000000 


pegxt 


mn 


ee ee ee ee ee ee ee ee ae ee 


2 He OE Che oe i hc ie ie 


RDSTHD: 
E 


20s: 


1$: 


3$: 


4$: 


M14 
7(4006) 05-07-76 03:17 PAGE 181 SEG 0181 


ASSCENDING ORDER. CONTROLLER ERRORS ARE CHECKED IN THE 
READ HEADER OPERATION AND DATA LATE IS CHECKED AFTER 
H READ OF THE DATA BUFFER. 


CALL: 


;RETURN POINT IF CERR IN READ HOR 
ERROR . 13 ; RETURN if A LATE_IN DB UNLOAD 
OW OR 


ERROR ; RETURN 
IF HOR O NOT FOUND 


#LCLKPR,OPTFLG ;TEST IF CLOCK PRESENT 


IP 
wee Ro ses TATEBRLT FOR 26 SECTOR FORMAT 


acrHT, L.CS1 ;1S 24 SECTOR MODE SET? 

#24, RO tELSE TO 24 SECTOR MODE 
#IBUFF RI *SET POINTER TO INPUT BUFFER 
RO, RS ; SAVE NUMBER OF SECTORS 

RI; RY :SAVE IBUFF ADDRESS 

R2:R3 :SET UP POINTER TO RKDB 
#RKDB,R 

DRVNUM, RKCS2(R2) ;LOAD 


DRIVE NUM 
r BAR ML Rube (Red shone CYLINDER a 


#16. ‘noe ot TIME COUNTER 
INTSET :CLEAR INTERRUPT FLAG 
LCLKTK CLEAR TICK COUNTER 
L.CS1,RKCS1(R2) ;LOAD COMMAND 
INTSET - TEST IF INT OCCURRED 
4g ; sYES ik IP 
pC MYT INE WAIT 1 MS 
LC CLKT ; HAVE te WAITED 1g MS? 
:NO - LOOP ON WA 
mp vi SET T RETURN FOR TO SLOW 
#EM4Y, EMN + SAD MESSAGE “TO SLOW/NOT COMPLETE™ 


#OPERS4, DH2N ;LOAD COMMAND “READ HEADER” FOR REPORT 
10$ ; SKIP 

RKCS1(Re? ; TEST FOR CONTROLLER ERROR 

118 ;YES - SKIP 


;STORE HEADERS 


RKCS2 (Re) ;TEST IF DATA LATE 
8S ;YES - SKIP 


RO ;DEC SECTOR COUNT 


“7 * 
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3860 035330 001330 BNE 2s sIF NOT ZERO - LOOP 
ete 935338 37 100000 o01656 BIT BLCLKPR, , OPTFLG TEST i LOCK PRESENT 
ne os G 
68864 «(035342 Ol 000100 144326 MOV #BIT6,IKWLADD SET IATERRUT ENABLE 
9865 035350 030761 000037 O0000e SS: BIT $37, 2(R1) :HEADER AT TOP OF BUFF=HEAD 07 
. 9866 035356 001413 BEQ 3 YES - SKIP 
9867 035360 0121 MOV (R1)+, (R4)+ “ELSE MOV THIS HEADER TO BOTTOM 
3868 93536¢ Ole! MOV (RI +, (RY)+ 
3669 4 Olel MOV (R1)+; (RY) + 
9871 035366 005305 DEC RS ;TEST FO INSURE HEAD 0 IS FOUND 
9872 035370 001367 BNE S$ IF ALL HEADERS NOT CHECKED - LOOP 
9873 012737 OSS1S7 001370 MOV #EMS6, EMN ‘ELSE “HEADER 0 NOT FOUND" MESSAGE 
9874 035400 005037 001372 CLR DHeN 
S875 035404 o00421 BR 95 ; SKIP 
3879 035408 012700 060604 6$: MOV #IBUFF RO GET TOP OF IBUFF 
9878 035412 Oiei20 7$: MOV (R1)+, (RO)+ ‘MOVE HEADERS SO THEY START AT TOP OF IBUFF 
aaog 035414 Olel MOV (R1)+) (RO)+ 
Seat ete aan NP any (moe ALL HEADERS MOVED? 
ange Oey rarer BNE a *NO - AOE . 
gee4 062766 000010 on0006 ADD #10,6(SP) ;SET UP FOR GOOD RETURN 
gees 035432 o00423 BR 11$ 


9886 
9887 035434 peas OS3442 001500 8S: MOV were ds ,EM13N ;"DATA LATE SET RESULT OF READ DB” 


O35442 012737 055570 057702 MOV #EMRDB; OFOLIA 
O354S0 062766 00004 OO0006 9S: ADD #4,6(SP) ;SET ERROR RETURN 

3890 03556 104420 TGETRK GET RK REGS 

9891 035 013700 001302 10$: § MOV $TESTN, RO iGET TEST NUMBER 

9892 035464 006300 ASL RO HIFT ob OR, INDEX 

9893 035466 016027 032304 001264 - MOV $SWOBSTB(RO), SescAPe SCAPE 

9894 035474 162737 000002 O01c64 SUB #2, SESCAPE :70 nior Batty CALL 

ange 035502 104414 11S:  RESREG 

3837 035504 oo0204 RTS RY 

9899 .SBTTL GET DRIVE STATUS 

9900 :% THIS ROUTINE GETS ALL THE DRIVE STATUS AND PLACES IT IN SREGIO 

9901 : THROUGH SREG17. THESE REGISTORS ARE FIRST CLEARED TO ALL ones AND 

9902 * THEN IF ERROR OCCURS WHILE GETTING STATUS, THE 1°S ARE LEFT 

9303 +" IN THE REGISTERS. 

9904 ;* 

9905 **¥CALL: JSR R4, GETDRS v 

9906 i BR ERROR PROCESSING ERROR RETURN Vm i 

3307 :% BR NO ERROR PROCESSING GOOD RETURN 3 

9909 SO& 104413 GETORS: SAVREG : Rg 

9910 035510 b1e7be 100000 900000 MOV #CCLR, RKCS1(R2) ; CLEAR ANY OLD ERRORS LAYING AROUND a Cas 

9911 035516 012700 OOl2de MOV #$REGLO,RO PRESET ALL STATUS STORAGE TO ee <a 

9912 S22 012701 OoO00010 MOV #8. .R1 FALL ONES - Bs 

9913 S26 012720 177777 1S: MOV 877977, (RO)+ . Bay 

9914 035532 005301 DEC R1 Se 

9915 035534 001374 BNE 1$ ae Ff 
wf 
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ae;8 Saeecs Giese? Beier 

S619 Saceuc SoeoSe e183 
hae 
$92] n bt 1 cocoons 
3322 ae 1 900050 

gece § 3378 00000 op0000 
gasp S3eETh DaTaTE 

9927 O3b12 32762 24000 090000 
$3 Be BR caren cco 
S533 Fees poo 001230 
ga35 baeess | BeSa35 

gsc SSeEua oie 333 00034 

ga3e Skea BiESSs Sooo 

sg fees fiery ORS coom 
ae tee Be 

641 1 900004 

sxe O3b7Y Ola 

Sea3 S35908 StErBH oole0e 

gaus 035704 000722 

9046 035706 104414 

$647 035710 005737 001230 

gsue 036714 01001 

ge49 036716 06724 

e650 035720 00204 

eee 

g6s4 

ese 

gece 

gcc? 

gce2 

gees 

9966 

8661 

ee 

9967 

96ee 

9969 036722 

9870 035722 O1004%6 

$87] 036724 O10146 


4§: 
SS: 


o 
a 


~ 
y 


-SBTTL 


OR Re ae ape eee 


Oe Se ee oe ee St St OF OS Ss os Os es es oe 


SSINIT: 
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Mov set ,RO ‘Beret tor TOREGI2 FOR ACL 8 BOL 
CLR :CLEAR ERROR SWITCH 
MOV . see RKCSE(RE) *LOAD DRIVE 
NOV Hae RicereRe) ibO SEL EST 
,? 
MOV 840. ,R3 “WAIT FOR A FEW MICRO RECORDS TO 
DEC Ra :BIT SELECT FINISH 
eI ACERR, RKCS1(R2) sANy ERROR SET AS A RESULT OF SELECT? 
BIT gCTO!SPAR, RKCS1(Re)_; CHECK TF TIMEOUT OR PARITY ERROR 
Ete _ Mae OR ERRORS: 
;’ NED!UPE!MDS!UFE! NEM! PGE 
BEG ;NO_- SKIP 
MOV #1,STMP3 :SET ERROR FLAG 
CHP (RO)+, (RO)+ : BUM TO LET THAT PAIR STAY ALL 1°S. 
MOV MR2(R2),(RO)+ : TORE A WORD 
Te ee ates Sebel Gnrare ERROR IN CONTROLLER 
TI Ri 15 A BO CLRS TRANSFER, PAIR 0) 
NC Ri ELSE 19 XT PAIR 
che #4,R1 :PR a STORED? 
CLR 1 ELSE SET TO TO PAIR O 
HOV 8$REG1O,RO sPRESET POINTER FOR PAIR O 
RESREG EXIT HERE 
Ist THPS s ANY ERROR_IN STATUS GETTING 
TST (RY)+ ‘ELSE BUMP PART ERROR 
RTS RY : RETURN 
YSTEM INITIALIZE AND INITIALIZE STATE TEST 

HE SUBSYSTEM IS INITIALIZED WITH A SUBSYSTEM CLEAR 

AND DI ARE MONITORED 


COMMAND. CERR FOR A SHORT 
PEIROD OF TIME DURING WHICH THEY SHOULD BOTH RESET. 


IF THEY DO RESET, READY IS 

IF ANY OF THESE THREE CONDITIONS 
ERROR MESSAGE IS PREPARED 

RETURN TO THE C IF EVERY THING IS goc 
SKIPS OVER THE ERROR CALL AND TEST 


HE USUAL CALL TO THIS ROUTINE WILL BE FOLLOWED BY 


is Bee ee FAILURE TO" INT THALIZE CORRECTLY" is FATAL TO 


TACK 
TACK 


TESTED TO INSURE IF SETS. 
T_AN APPROPRIATE 


RO ON S 
Ri ONS 













a ne 


| waa 
UGS resale eipip ts vpahepalens 


ee 
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Bosoie Boise 


790500 BB ieND 


Este dias 
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001540 
001400 
OSeS6& 001400 


ve 
My 


8 
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= 


Speer ene 
ee 
if 


ae 
i 
f 
hs 
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PSH U PROM RA REST Mit Lt USSR en pan 
om 


012437 046462 
023737 O46462 001542 


19737 DblsHe SHGN7e 
000204 


0 b= b= 0 bs oe 
WONOMUN SWIM 


RTSREN 


73: 


MOV —s8?, 


l 
MOV #.'CS1,R0 ead OF “L” REGS 
MOV 8100, (RO)+ 
CLR (RO)$ Frese THE NEXT 
C Ri NT Be 

as + LR, RK (R2) ; oa TEM 
Nov 810. ,$7 a i 
MOV RkCS1(R2).T.CS1 ; oe 
BIT sCERR'DI,T.CS1 TEST t ERROR OR DI SET 
BEG 2s SKIP TO READY TEST 
DEC STNPO , REMENT COUNTER 
BIT SCERR,T.CS1 ter - IS IT CERR STILL SET 
BEQ 3$ :NO SKIP TO DI MESSAGE 
HOV SENS, EMSN IMESSAGE (SUBSYS CLR NOT RESET ERROR? 
HOV aK #EM6, EM3N :MESSAGE (SUBSYS CLEAR NOT RESET DI) 
MOV STESTN,RO GET PRE NT TEST NUMBER 
ASL RO : SHIFT NDEX 
ry SSWOSTBL(RO),SESCAPE ; "eb SCAPE TO ABORT TEST 
Sus 82, SESCAPE :SET TO NEXT SCOPE CALL 
MOV (SP)+, :;POP STACK INTO Rl 

(SP)+'RO POP § 

63 :OSKIP TO EXIT 
BIT sROY,T.CS1 : TEST READY SET 
BNE S$ *YES = GOOD EXIT 
HOV sen? , EM3N SMESSAGE (SUBSYS CLR NOT SET READY? 
MOV (5P)+,R1 sRESTORE REGS 
MOV (SP)+.R0 
a0 #2, (SP) :GOOD RETURN 


THI Rute i compares The ¢ NTENTS. 0 OF THE TEST , io 4 +A 


HE SUPPLIED VAL F UNEQUAL 
EREOR ee OUNCERED i" "Set IN GROUP 4 ERROR FLAGS (GRPYER) 


: JSR RY, CHKWC 


.WORD EXPECTED WC VALUE 
MOV (RY) +, EXPWC ;STORE EXPECTED VALUE 
CMP EXPWC, T.WC ; COMPARE 

BEQ 1S ‘EQUAL - SKIP 

BI SUCERR,GRPYER :SET ERROR FLAG 


HOV Tr WC, REALWC apron REAL WORD COUNT 


ADDRESS AT END OF OPERATION CHECK 
ant Hie RaNGFER BY COMPUTES THE EXPECTED BUS ADDRESS AT THE of OF 


SEG 0184 


re SS 
' 
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19028 :* AN ERROR FLAG (BAERR) IS SET IN GROUP 4 ERROR FIELD (GRPYER) 
ise :# IF BUS ADDRESS INCREMENT INHIBIT WAS SET, THE EXPECTED Sus 
19031 :# ADDRESS IS THE STARTING BUS ADDRESS. 

iss #CALL: , CHKBA 

1 036154 010046 CHKBA: MOV RO, -(SP) 

10035 036156 010146 RL,- (SP) 

ibe Baciee puoe%8 000020 001610 Bey SATE ese ;TEST IF BAI SET 

10038 036170 O01404 BEQ 4 =NO = SKIP 

10039 b36172 13737 O01604 O46466 HOV L.BA,EXPBA ‘STORE EXPECTED BA (SAME AS STARTING BA) 
1 001602 4$: MOV WC, RO :GET INITIAL WORD COUNT 

iBoue Baesce Baz Gpe Nee ORG 

10043 036210 113703 001601 MOVE L.CS141,R3 ;GET BAI6 & BAI? 

10048 036214 042703 177774 BIC 8177774-R3 :CLEAR UNWANTED BITS 

iSbue 036220 905700 TST RO ;TEST IF INITIAL WORD COUNT 0 
{Bowe Saree peaoeS eB tO ‘Nop 2°10 

1 036224 ooocde 82,R3 !ADD 2 TO BALG,17 (65K WORD XFER) 
19049 636230 000407 as 9$ : SKIP 

10050 32 005709 6S: TST RO ‘TEST IF INITIAL WC BIT 15 SET 
10051 D2be34 100001 BPL cs !NO = SKIP 

10052 005203 INC R3 ‘BUMP BAI6,17 (32K WORD XFER) 
10053 036240 906300 cs: ASL RO ‘SHIFT WORD COUNT TO MEM ADD CNT 
10054 O26242 063700 001604 ADD L.BA,RO "ADD IN START BUFFER ADD 

1005S O26246 905503 ADC R3 !IF CARRY - ADD INTO BALS,17 

1 O3be50 912701 oo1s4e ag MOV T.WC,RI :GET END OF OPERATION WORD COUNT 

l 141i} BEQ 1§ ; H IF ZERO 

1005e@ 036256 005401 NEG Rl 

10059 SabcbC 005701 TST R : TEST END OPERATION WC BIT 1S SET 
10060 100001 BPL ? *NO = SKIP 

19061 936264 005303 DEC R3 *DEC BA 16,17 (32K WC LEFT) 

1 036266 006301 73: ASL RI :SHIFT WC TO MAKE MEM ADD CNT 

{Does Osea72 dbeE ee OAT BUB CARRY FROM BAIECIZ 
10065 036274 010337 o46464 MOV R3, EXPUBA :STORE EXPECTED UPPER BA BITS 
10066 036300 010037 Ooy464E6 1$ MOV RO; 

10067 036304 001544 3$ CMP RO’ T.BA sEQUAL TO COMPUTED? 

10068 036310 001406 BEQ 25 :YES - SKIP 

10069 03631 37 000004 o46S520 BIS SBAERR,GRPYER ELSE SET BAERR FLAG 

19070 036320 013737 O01544 O4ESCe2 MOV T.BA, REALBA :STORE REAL BUS ADDRESS 

1007 O3beb i 001541 23 MOVB 1.CS141,R3 [GET REAL UPPER 

1 1 BIC $177774'R3 :CLEAR UNWANTED BITS 

i 036236 O46464 CMP R3, EXPUBA :CHECK IF EQUAL 

10074 026342 901405 BEQ 9$ *YES - SKIP 

10075 036344 po0002 o46S20 BIS SUBAERR,GRPYER ‘ELSE SET 

10076 936352 O01 046500 MOV R3, REALUB :STORE REAL UPPER BA 

10077 026256 O1e603 QS: HOV (3P)+,R3 

1b878 Bsesee BISERA (2b) SRA 

19080 026364 O00204 RTS RY 

1008 .SBTTL CYLINDER, TRACK,SECTOR TEST AT END OF OPERATION 

10083 : THIS ROUTINE CHECKS THAT THE CONTENTS OF THE RKDCYL AND RKDA 


RKE11 ie CON 


DZREKC. 0 


10084 


aiidoalaamaiel: 


+ & + 0 b&b b— 0+ & = F-* & = 0 8 + B20 = 0 2 2 Bb b= 0 2 + 2 O&O 0 9-2 & 2 2 9-2 6 2 B= §—< 9-2 P+ b—2 & 2-2 2 > H- Do B-* B- 2 & + Bs Bo 


OQNOOKOOO OOO OOOO OOO OOOO OOVOVOOOOKOOVOOO0O0020000 

es ee ee es ee ee ee se ee 2 0 be Be Be 8 ee Be 

SRBVRRESREB VR RRR POV SB aONeH cow -OBOVER EOS 
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ie 
-— 
£ 
Oo 
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00160e 
001542 
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001600 


046470 


Scares ae es ee ae ee ee 
ee ee ee 


i 
* 
Fs 
c 


Ss: 


o. 


E15 
CYCIROER TRRCR. SESTOR TES? AP END OF SPERATION 


ARE CORRECT FOR ay SIZE DATA TRANSFER AT THE END OF THE 
OPERATION. THE C yy re init OF THE L GISTER y AGE ARE 
COUNTED ON TO NITIAL VALUES TO MAKE 

NECESSARY CALCUL 


ALL THREE VALUES ARE GENERATED AND STORED IN EXPECTED VALUES 
STORAGE EXPCYL, EXPTRK mi ALL 3 ARE CHECKED AND 


TE ONE_OR HORE ARE WRONG, THE CORRESPONDING BIT IN THE 


: JSR R4, CHKCTS 
CHKCTS: 


SAVREG 

MOV L.WC,RO ;GET SPECIFIED WORD COUNT 

NEG RO ;NEGATE IT 

MOV T.WC,R1 ;GET_END OF OPERATION WORD COUNT 
BEQ 10$ ;1F ZERO - SKIP 

NEG Rl ;NEGATE IT 

auB R1,R0 5 COneUTE Aer, WORDS TRANSFERRED 

C CLEAR Rl FOR COUNTING 

THE FOLLOWING CODE DETERMINES HOW MAY SECTORS OF DATA HAS BEEN 
TRANSFERRED iN THE OPERATION. ONCE IT HAS COMPUTED THAT, THE 
END OF OPERATION VALUES FOR THE CYLINDER, TRACK, AND SECTOR 


CMP é 
BGT 2 

INC 1 

SUB ss #400, RO 

BR 1$ 

TST RO 

Begs 

AY THIS POINT R1_HAS A_COUNT 

NUNGER OF FULL SECTOR TRANSFER + FF A 
PARTIAL SECTO E 


#26 oe 
SCFAT,L.CS1 

4s 

R3 HAS BEN SET UP UT THE NUMBER 


OF SECTORS IN A_TRACK FOR THE FORMAT USED 
MOV CP DeYL EXPCYL ;GET STARTING VALUES FOR CYLINDER 


MOVB  L.DT,R4 : TRACK 

BIC $177400,R4 

MOVB  L.DS,RS ; SECTOR 

BIC #177400, R5 

DEC R1 SONS COUNT FOR ZERO DETECT 

ins Re Ra D THIS MAK ON tTOR COUTN > 1 TRACK? 
aR ORs 10: REAR SECTOR COUNT 

tHe RG tEtRP TRACK COUNT 

CMP #3,R4 :DID THIS MAKE TRK COUNT > 1 CYLINDER? 
BNE 3 :NO - SKIP 

CLR RY ELSE CLEAR TRACK COUNT 

INC EXPCYL ‘BUMP CYLINDER COUNT 


SEG 0196 


F1S 
FKGI1 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYL1 271006). 05-OCT-76 (09:17 PAGE 187 
DZREK ¢ AT END OF 


C.P11 01-OCT-76 13:08 CYLINDER, TRACK, SECTOR TES TION 
101% 036534 005301 6S: DEC RI sDEC COUNT a 
ibis cae biba3 474 MOV BS. EXPTRK id REPO pe RED TRACK 
1014 44 Ol 472 MOV EXPSEC :STORE EXPECTED SECTOR (CYL ALREADY SLOW) 
10144 036550 023737 OO1S60 046470 SMP T.OCYL,EXPCYL ;TEST IF CYLINDER OK 
10145 036556 001403 BE 7$ YES - SKIP 
19146 10 o46S20 BIS YLERR GRPYER :NO - SET ERROR FLAG 
1014 1547 7$: CMPB 3 séR4, T. DAS :TEST TRACK OK 
10148 936 1403 BEQ ag YES - SKIP 
10149 046520 BIS STRKERR,GRPYER ;NO - SET ERROR FLAG 
10150 120537 OO01S46 8S: CMPB =soaR?'S,, T. DA :TEST SECTOR COUNT OK 
10151 051403 BEQ 9g YES - SKIP 
19152 O36610 Os2 046520 BIS SSECERR,GRPYER :USE SET ERROR FLAG 
10153 036616 Br5980 046476 9S MOV SREALWC. RO 
10154 O36622 013720 d01S4e MOV T.WC, (RO)+ sSTORE REAL WORD COUNT 
1015S 036626 013720 OO1544 MOV T.BA; (RO)+ : REAL BUS ADDRESS 
1015 036632 013720 001560 MOV T.DCYL,(RO)+ | ;STORE REAL CYLINDER ADDRESS 
10157 036636 113710 001547 T.DA+I; (RO) STORE REAL TRACK ADDRESS 
10158 O36642 005720 TST (RO)+ 
10159 44 113710 OO1S46 MOVB _—sT.DA, (RO) ;STORE REAL SECTOR ADDRESS 
10169 O36650 104414 RESREG 
10161 036652 000204 RTS RY 
10163 .SBTTL OPERATION CHECK ROUTINE 
10164 :% THIS IS WHERE nERROR INDICATORS AND S SOFT 
1016s te ORS ARE CHECKED. THE RAL PROCEDURE FLOW 15 AS FOLLOWS 
10166 # HE ROUTI sc WITH A TRAP (TCHKOP) re LOCATION 
10167 % FOLL I ae LL HAVE AN ERROR WHICH 
tbs + ERROR 1S. DETECTED ERROR TROP CALL TSUHDOIETED 
10170 1 BY THIS ROUTINE Bol THAT THE ERROR TABLE ITEM iP 
10171 1% BE THE PROPER ITEM FOR THE FORMAT REQUIRED BY THIS 
10172 *# ERROR. THE ERROR TRAP WILL BE MADE EITHER ERROR 4.5.6 
10173 # OR 10. REFER TO THE ERROR ITEM TABLE FOR A DESCRIPTION 
10174 + Of THE FORMAT AND WHICH ERRORS ARE DISPLAYED IN WHAT 
19175 1 # FORMAT. 
15135 036654 104413 CHKWE: SAVREG 
ies Geese GLEE? gues RY (serine RE NOEENES ERAGE OS 
10180 O36664 BiS935 001244 MOV (Rods! STMPLT + aTORE EYPECTED ERROR GROUP 2 
10181 036670 012037 O0l246 MOV (RO)+.$TMPl2 § ;STORE EXPECTED ERROR GROUP 3 
1018 036674 O10016 MOV RO, (SP) STORE RETURN 
19183 036676 012737 177777 001250 MOV #-1, $TMP13 :SET FLAG - EXPECTED ERROR 
10184 036704 000403 BR CHKST 
10186 036706 104413 CHKOP: SAVREG 
10187 036710 005037 001250 CLR STMP13 ;RESET EXPECTED ERROR FLAG 
10189 714 CHKST: TGETRK ;GET 611 REGS IO TRAP 
10190 716 beds 046512 CLR GRPIER :CLEAR ERROR FLAGS 
10191 036722 005037 046514 CLR GRP2ER 
1019 036726 005037 516 CLR GRP3ER 
10193 036732 520 CLR GRPYER 
10194 036736 005037 O46634 CLR GPSUMF ;CLEAR SUMMARY FLAGS 
1019 036742 032737 Oe4000 o01540 BIT #CSIERBIT,T.CS1 ;TEST IF ERROR SET IN CS1 


© 


SAU AE SONATE OT whe 


10:!% 036750 00111 4§ 

10197 036752 332357 177400 001550 are #CS2ERBIT,T.CS2 TE ey a FPROR SET IN CS2 

10198 036760 001105 BNE 4 p 

10199 036762 032737 000070 oj1Sse BIT SOSERBIT, ,T.DS ae IF ERROR SET IN DS 

ise Bae 5 8 Boas $3 001554 TS T.ER T IF ERROR SET IN ER 

t Sms Basans pasese 100000 901540 ere BeERR T.CSi aI INED ERROR SET? 

iSsh3 Baraas ann a C8 orp 

10205 037010 052737 100000 o46512 BIS ACERNER, GRPLER :SET ERROR FLAG IN GROUP 1 

19206 037016 000137 037546 IMP ess : SKIP 

0207 

10208 ; CODE 0 CHECK WORD C0 COUNT, BUFFER ADDRESS, CYLINDER TRACK, 
19603 : THE END Forte OPERATION. THIS IS DONE ONL 

i pio : i cERE Thor tt Y MO OPE T 

1021 7 : ; E ABOVE a: TIONS ARE CHECKED AND A ett SET FOR 
18813 : ee nie Pentel Haver oh THE Oo ERR 13 THE SROER” 
10216 , 

10217 037022 005737 oDl1es0 9S: TST STMP13 sTEST F ERROR EXPECTED 

10218 G370e6 001402 BEQ rf 

ipsea 037034 irae atta 62$ sv #8. RO es oslo 

10221 037040 042700 177741 a ie 8177741,R0 :CHECK IF F OPERA TION IS READ DATA 
10222 037044 22700 oo0020 CMP #20, RO sMRITE DATA, OR WRITE CHECK. IF ° 
10223 037050 oo°44s BLT 35 :NOT, SKIP ALL CHECKING IN GROUP 
10224 937052 000030 CMP #30,RO0 FOUR 

10225 037056 o03042 BGT 3$ 

Dect 037060 904437 036122 JSR R4, CHKWC ; CHECK WORD toes 

1p5se nee ar ted 036154 JSR RY, CHKBA Seek Bb sss 

10229 937072 004437 036366 JSR R4’ CHKCTS AORRee & SECTOR 

10230 037076 005737 046520 TST GRPYER ‘Bay  SRSUB 4 4 ERRORS? 

10231 037102 001430 BEG 3$ SKIP 

10232 037104 O16037 O46636 oOS7662 MOV CMNDLB(RO), DFO10A ;LOAD ADDRESS OF COMMAND MESSAGE 
10233 037112 013700 o46S20 MOV GRPYER, RO :PUT GROUP 4 ERROR FLAG IN RO 
1pese Da7ieB BbEeo 1s ROR See Frage = Teer ole ON RIGHT IS ERROR TO 
10236 O37le2 103402 i BCS RS ‘BE REPORTED an 

10237 037124 005720 TST (RO)+ ‘WHEN AN ERROR BIT IS FO 

109238 037126 000774 BR 1$ :GET T SSAGE ASSOCIATED 
10239 037130 016037 o46S22 OO14SO 2S: MOV GRPYMS (RO). EMION’ shiITH me T ERROR ITEM TO 
10240 037136 O16037 bubiGe 001202 MOV EXPWC (RO) SR G10 ;PO TO THE MESSAGE. LOAD REGIO & 11 
10241 144 Ol 476 001204 MOV REALWC(ROS, SREGI1" <W My EXPECTED 8 IS VALUES 
1o543 37164 12776 000010 oo0000 NOV #10,a(SP) pe Ay tN POINT TO THE 
1 neat ney : ?RIGHT TABLE ENTRY & RETURN. 

1024S 037164 3S: 

ipeue meets parte cocoe2 ree #2, (SP) UMP RETURN PAST ERROR 

10248 535158 ar . TURN 


; THE FOLLOWING CODE BUILDS THE GROUP 1,2, & 3 ERROR WORDS. 
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1gese 037174 912700 owes 42 4§: HOV eGRP PIER, RO :SET UP GENERAL REGISTER AS POINTER 
10254 Ba550q ison ppt 50 MOV a7.¢ Py 3¢ 

10255 037210 012704 001552 MOV 87.05, 24 :DS 

i 037214 012705 oo1s54 MOV #T.ER,RS :AND ER 

10258 037220 051510 BIS (RS), (RO) ;SET ALL BITS IN GRPIER THAT 
10259 “CORRESPOND TO ERROR BITS IN RKER 
10260 037222 O42710 120701 BIC #ILFIECHIBSE!HVRO!OPI'DCK, (RO) ; CLEAR ALL THAT DON’T BELONG GRP 
10262 932711 920000 BIT SPAR, (R1) :TEST IF SPAR SET 

10263 037232 001402 BEQ ;NO_- 

1264 037234 052710 oo0001 BIS #SPARERR, (RO) SET SPAR ERROR FLAG 

10266 037240 032714 900010 cs: BIT BACLO, (RY) :TEST ACLO SET 

10267 037244 90140e BEQ 6$ =NO = 

10ce8 037246 052710 000100 BIS #ACLOERR, (RO)  :SET ACLO ERROR FLAG 

10270 037252 032714 900020 6S: BIT sSPDLSS,(R4)  ; TEST SPEED LOSS SET 

10271 037256 901402 BEQ z *NO - SKIP 

10e7¢ 037260 052710 oooe00 BIS #SPDERR,(RO) SET SPEED LOSS ERROR FLAG 

Sra 037264 032714 oO0040 7S: BIT #DROT, (R4) TEST IF DROT SET 

10275 037270 001402 BEQ *NO_ = SKIP 

1067 03 052716 oo0400 BIS SDROTERR,(RO) SET DROT ERROR FLAG 

10278 037276 032711 100000 QS: BIT 8CERR, (R1) ;TEST CERR ITSELF SET 

10279 037302 001002 BNE 1 :YES - SKIP 

19280 037304 032710 o20000 BIT #NCERWE,(RO) SET NO CERR WITH ERROR FLAG 
10286 037310 012700 o46514 10$: MOV 8GRP2ER, RO ;SET POINTER TO GROUP 2 ERROR FLAGS 
1p5es 037314 032715 000100 BIT #ECH, (RS) sTEST IF ECH SET 

10285 001402 BEQ 11§ “NO = 

102s 037322 052710 oo0001 BIS #ECHERR,(RO) § :SET ECH FLAG 

1p5B 037326 032715 100000 11$: BIT #DCK, (RS) ; TEST DCK SET 

10289 0373232 001402 BEG 12$ ?NO = SKIP 

19290 037234 052710 oo000e BIS #OCKERR,(RO) = :SET DCK ERROR FLAG. 

10292 037340 032713 o4O000 12$: BIT #WCE, (R3) ;TEST WRITE CHECK ERROR 

10293 037344 001402 BEQ *NO_- SKIP 

10294 037342 052710 ooo004 BIS SWCKERR, (RO)  3SET WCE BIT 

10295 037352 032713 100000 120$: BIT #OLT, (R3) :TEST DATA LATE 

102% 037356 001402 BEQ 1 ?NO = SKIP 

10297 037360 052710 oo0010 BIS #OLTERR,(RO) § ;SET DLT ERROR FLAG 

10536 037364 032715 o20000 138: BIT #OPT, (RS) ;TEST OPI SET 

10300 037370 0140 BEQ 14$ =NO = SK 

10301 027372 952710 oo00e0 BIS WOPIERR,(RO) © ;SET OPI ERROR FLAG 

1 000400 4§: T BHVRC, (RS) TEST HVRC SET 

is re STs we eS 

10305 04 052710 oo0040 BIS SHVRCERR, (RO) ;SET HVRC FLAG 

10307 037410 032715 op0200 16$: BIT #BSE, (RS) ; TEST BSE ERROR FLAG 








ae FUNCTIONAL ay Mes emcee edt Ee 006) 05-OCT-76 09:17 PAGE i190 SEG 0190 


ZREKC.P11 01-OCT-76 HECK R oe he 
l 037414 001402 17 :NO - SKIP 

19308 037416 952710 o0c100 BIS SESERR, (RO) -SET BSE FLAG 

ie 037422 012700 O46S16 17$: MOV #GRPER, RO ;SET POINTER TO GROUP 3 FLAGS 
10313 037426 3 010000 BIT NED, (R3) ; TEST NED SET 

10314 O37432 o01402 BEQ 1 "NO = SK 

10318 037434 052710 000001 gis #NEDERR, (RO) :SET NED FLAG 

10317 037440 032711 oO04000 18$: BIT #CTO, (RL) ;TEST CTO SET 

10318 Lanny Bb14oe BEQ 19$ *NO - SKIP 

i o313 052719 ooo00e2 BIS #CTOERR, (RO) ‘SET CTO FLAG 

10321 037452 032713 o00400 19$: BIT 8UFE, (R3) ; TEST UFE SET 

10322 037456 O01402 BEG 20S - SKIP 

103e3 037460 052710 oo0004 BIS SUFERR, (RO) ISET UFE FLAG 

03s 037464 032713 0010990 20$: BIT #05, (RS) ;TEST MDS SET 

ibe? B3oqo5 5e3308 000010 Bee #MDSERR, (RO) : SET MBE FLAG 

10329 037476 032713 oD2000 21$: BIT PGE, (R3) ; TEST PGE SET 

10330 037502 901408 BEQ Fa "NO = Sk 

19331 037504 19 ooo0e0 BIS #PGERR, (RO) :SET PGE FLAG 

10333 037510 032713 oo4O000 22$: BIT 8NEM, (R3) ; TEST NEM SET 

10334 037514 001402 BEQ 2 - NO = SK 

10335 037516 052710 cooo4o BIS #NEMERR, (RO) :SET NEM FLAG 

10337 037522 032713 o20000 23$: BIT #UPE, (R3) _ sTEST UPE SET 

10238 037526 901402 BEQ "NO SK 

10339 037530 052710 000100 BIS SUPERR, (RO) :SET UPE FLAG 

10241 032715 o00001 24$: BIT #ILF, (RS) ;TEST ILF SET 

10342 037540 001402 BEQ 25$ ;NO_- SK 

10343 037542 052710 ooo200 BIS #ILFERR, (RO) *SET ILF FLAG. 

ipSue : THE FOLLOWING CODE IS EXECUTED ONLY IF ERRORS WERE EXPECTED. 
10346 : THE FLAG IN $TMP13 INDICATES IF 

10347 : AN ERROR WAS EXPECTED AND THE CONTENTS OF TMP1O 

10348 : TEMP11. & TEMPl2 SPECIFY WHICH ERRORS. THESE ARE COMPARED AGAINST 
10349 : HE ERRORS FOUND AND STORED IN GRPIER 2ER 

10350 : THE pSQUTENTS OF ares +" eck TO INDICA are ERRORS THAT 
ipsee : at oO Not ereate ue cONTENTs ST ORS of HAT D BD ‘Not 
10336 : Bcc Mah "beh ibd ONS CAN Te bree AT Fhe SAME Sane TIHE AND MUST 
10365 : 

10356 037546 005737 ool12s0 25$: TST STMP13 j CHECK IF AN ERROR WAS EXPECTED 
10357 037652 901423 BEQ 110$ SKIP 

10358 037554 012704 o46S12 MOV #GRP1ER, RY CET “ADDRESS OF ERROR 

19369 037560 012705 dol24e MOV sSTMP1O,RS GET ADDRESS OF EXPECTED ERRORS 
10361 037564 011500 26$: MOV (RS), RO ;GET EXPECTED ERROR 

10362 037566 011401 MOV (R4) RI *GET GROUP ERROR FLAGS 

10363 037570 O20001 CMP RO,Ri ‘ARE THEY EQUAL? 


a 
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10364 037572 001003 BNE e7$ - SKIP 
10365 037574 005000 CLR RO CLEAR EXPECTED ED 
iB Biro gf i ‘aah 
10368 037602 010003 27s: MOV 3 STORE Perry TED - 
iY Ga au He ee Bac TT See 
037610 0100eS 28s: MOV RO, (RS)+ RE EXPECTED THAT DID NOT OCCUR 
1b355 O3761e 0101e4 MOV R1, (R4)+ TORE OCCURRED THAT WERE NOT OE PECTED 
10374 037614 Oe2e70S 001250 CMP aS TMP13,RS SALL GROUPS CHECKED. 
037620 001361 BNE 2b$ ;NO - LOOP 


THE FOLLOWING CODE: 
DETERMINES WHICH Ay 3 TO BE USED 


8. Lone 3 ETen 3 ie Pee ECD TEXT INTO THE SELECTED 
* OUNTS T “OF FoR THAT ae BE REPORTED 


GETS DRIVE STATUS IF GROUP 1 


THE DECISION OF WHICH ERROR IS TO BE USED 

IS BASED ON THE ERROR GROUP (OR GROUPS) THAT HAVE. 

FLAGS SET. IF ANY BIT IS SET IN GROUP 1.2, OR 3, GROUP 1 FORMAT (ERROR 4 OR 5S) 
WILL BE USED; ANY SET IN GROUP 2 OR 3, GROUP 2 LERROR &) WILL BE USED; AND A 
FLAG SET IN GROUP 3 ONLY, GROUP 3 (ERROR 7) IS USED. 


7 
THE FORMAT TO BE USED iN THE CONTROLLING FACTOR IN HOW THE 
E T . IF GR 1 


USED T' 

AVAILABILITY 
AND GROUP 3 ONLY THE 

OF THE ERROR_T ILL BE ALTERED. THE SP WILL BE 

POINTING TO THE LOCATION THAT CONTAINS THE ERROR CALL TRAP. 


IF THE STATUS IS Re " OM THE ORIVE WITH NO PROBLEM, 
ERROR 4 IS IF ANY ERROR IS ENCOUNTERED READING’ 
STATUS, ERROR S IS USED. ERROR S INCLUDES A WARNING MESSAGE. 


pad iereervnren i uu ita peeer ee 


b-+ b+ b= b= Bb b= OO BB 0 0 = = 8 0 bh me 


037622 005004 110$: CLR RY ;CLEAR COUNTERS 
037624 o0500s CLR RS 
037626 012700 001224 #STMP1,RO sLOAD POINTERS FOR TEMPORARY STORAGE OF ADDRESS 
037632 012701 001226 MOV #STMP2:R1 “WHERE ASCIZ ADDRESSES GO 
037636 012703 O4 MOV #GPSUMF , R3 :POINTERS TO GROUP SUMMARY FLAGS 
037642 012710 O57642 MOV #0F007A;(RO) | ;PRESET FOR GRP3 ERR MESSAGE BUILD 
0409 O37646 012711 O0144e MOV #DH7N, (R1) 
0410 037652 013746 O46SI16 MOV 3ER, -(SP :GET GROUP 3 ERRORS, PUT ON STACK 
0411 037656 004437 774 J R4, BITCNT GO COUNT NUMBER T’ ERRORS 
ule O37bbe 005716 TST ce : ANY “ERRORS? 
O41 664 001403 BEQ *NO - SKIP 
0414 037666 061605 ADD (SP). RS "ADD IN ERROR TOTAL 
ois 037670 052713 ocoooo4 BIS #GRP3ST,(R3) ;SET BIT TO INDICATE GROUP 3 ERROR 
0417 037674 0O0S726 298: TST (SP)+ :CLEAR OFF STACK 
0418 037676 005737 oD01es0 TST STMP13 ‘ERROR EXPECTED 
0419 037702 O01412 BEQ 31$ :NO - SKIP 


RKE11 


DZREKC. 


10420 


22292 
isi 


2222 
SBS 


Pbiccig uke ered es es cirernctora ert 


= 
& 


BRR P PPPS STEPPER PSPS TEEPE ET EEE EE PETE ERCP ERE ETS 
ba 


RERRRR OS eCa tas 


heat CONTROLLER DIAGNOSTIC weer 4 ERD) 
CHECK 


01-OCT-76 13:08 ON 

_ 013746 wien MOV 
Be Bt iF 
2 e271 000040 BIS 
ius a 
037726 OOS7e6 =: 308: TST 
037730 013746 O46514 31$: MOV 
037734 Q04437 034774 JSR 
037740 005716 TST 
037742 001407 BEQ 
Bre Ry omen 8 
0377Se Ole710 OS7616 MOV 
037756 Ole711 001432 MOV 
Garr be 005726 32S: TST 
4 005737 001250 TST 
037770 901416 BEQ 
037772 013746 001244 MOV 
0377768 O04437 034774 JSR 
040002 005716 TST 
040004 001407 BEQ 
pipes 0Se713 000020 BIS 
le 061604 ADD 
040014 O12710 057616 MOV 
040020 Oie711 001432 MOV 
040024 005726 338: TST 
O40026 013746 046512 34S: MOV 
O40032 004437 034774 JSR 
O40036 005716 TST 
Ras BE, f 
13 000001 BIS 
040046 061605 ADD 
0050 O1e710 057532 MOV 
4 Qle711 O0i4le MOV 
040060 005726 35S: TST 
040062 005737 001250 TST 
040066 001416 BEQ 
040070 013746 O01242 MOV 
nines 004437 034774 JSR 
ites 005716 TST 
040102 001407 BEQ 
040104 052713 000010 BIS 
0401 19 061604 ADD 
O40lle Ole710 057532 MOV 
040116 O1e711 OO14le MOV 
O40lee 0057e6 36$: TST 
O401e4% 032713 000011 60$: BIT 
oe a 
1 ther 035506 JSR 

040142 000401 BR 

040144 O00406 BR 


| 
| 
{ 
| 
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yy ae 
Rap8rT 


STME 11 = (SP) 
(se) 


6 
STMP10,-(SP) 
R4, BITCNT 

(SP) 


36S 
ae ine (R3) 


#CRPIST!GPINR, nay 


#ORSTER, (R3) 
R4, GETDRS 
51$ 


Ses 


;PuT GROUP 2.NOT RECEIVED ERRORS ON STACK 
; THEE ENy ' 

NO - SKIP 

SET GROUP 3 NOT RECEIVED ERROR FLAG 

‘ADD COUNT TO TOTAL THESE 


s CLEAR OFF STACK 
ate 2 ERRORS FOR COUNTING 
COUNT Hi TS 


:NO_- SKIP 
;SET FLAG FOR GROUP 2 ERRORS 
ane INTO TOTAL 
STORE ADDRESS FOR BUILDING REPORT 


;CLEAR OFF STACK 
: ANY o's ta ERRORS 


: GROUP 2 NOT RECEIVED ERRORS 
; COUNT NUMBER OF BITS 
sANY SET? 
;NO_- SKIP 
:SET FLAG FOR GROUP 2 NOT RECEIVED 
sae INTO TOTAL 

STORE ADDRESS FOR SUILDING REPORT 


CLEAR OP OFF STAC 

1 ERROR FLAGS 
COUNT THE NUMBER OF BITS 
sANY SET? 
iNO_- SKIP 
;SET FLAG FOR GROUP 1 ERRORS SET 


;ADD INTO TOTAL 
;LOAD ADDRESS FOR BUILDING REPORT 


;CLEAR OFF STACK 
;ANY ey ERRORS? 


SK 
GET GROUP _1 NO RECEIVED ERROR 
;COUNT # »oF BITS 
sANY "SET? 
- SKIP 
ior FLAG FOR GROUP 1 NOT RECEIVED 


;ADD_INTO TOTAL 
;LOAD ADDRESS FOR BUILDING REPORT 


AR OFF STACK. 
vANY GROUP 1 ERROR 
- SKIP 


;ERROR RETURN 
;NO ERROR RETURN 
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10476 Ov0146 012710 os7S62 51S: my s0F'O0SA, (RO) ic wance To FORM $= STORE ADDRESS 
| 
1 28 Pulse ot rien BIS SORETER, (R3) oR BuHLD NG REE ERROR 
has 1 Ses: 
1 Oaet : HE ERRORS BRE COUNTED, FLAGS SET TO INDICATE WHICH ERRORS 
ORMAT HAS BEEN EC 


‘ £8. Puff Cope: uit Tee Ace” ree cee RRORS, Lon THE 


Raa eee eS nelle fone Whe Pec 


AT THIS TIME 
RS “HOT EXPEE EHD" oe THE NUMBER OF ERRORS THAT OCCURRED BUT WERE 


R OF ERRORS THE OCCURRED IF NONE WERE EXPECTED 
R4 CONTAINS 1 NUMBER OF ERRORS THAT WERE EXPECTED BUT , 


STMP1O CONTAINS GROUP 1 ERRORS wet WERE EXPECTED BUT DID NOT OCCUR 


Hi ans ae fal eI 
Soe | Heres Tey SECIS SSC 6 SSR TST Boge 


ONO 


2 


D AND WERE NOT 
10499 cRPSER CONT TAINe GROUP abet ERRORS THAT OCCURRED OR OCCURRED AND WERE NOT EXPECT 
10500 (RLD=eSTAPS CONTAINS THE OF THE HEADER MESSAGE ADDRESS IN 
10501 T BE aL TERE RED 59. IDENTIFY THE OPERATION 
10502 (RO)=#STMP1 THe Tathe HE HEADER MESSAGE ADDRESS IN 
10503 THE ERR OR TEN TABLE aR Ohust BE ALTERED TO PROVIDE A 
ibepe at (R3)=8GRSUMF CONTAIN LAGS TO INDICATE WHICH OF THE GROUP 
10506 ERROR FLAG FIELDS HAVE ERROR BITS STORED. 
10507 40162 032777 o20000 140750 BIT #SW13, ISWR >IS REPORT INHIBITED? 
10508 O40170 O01402 BEQ 375 *NO - SKIP 
1DE1 DDIZE DOStS? | SoteeD a7s: Tet) STRPIB sELSE EnoRs EXPECTED? 
1081} Bb 084 ; BNE 38S “YES - SKIP 
10513 ; IF NO ERRORS WERE EXPECTED, $TMP10,11, 812 ARE NOT MEANINGFUL 
10515 012771 056536 oo0000 MOV #DHOO7, a(R1) sHEADER = ERROR IN OPERATION 
10516 O402e12 O00411 BR 39S 
10517 040214 012771 056357 OO0000 38%:  # MOV #OHOOS, 2(R1) :PRESET HDRMSG = EXPECTED NOT SET 
10518 O402e22 032713 000070 BIT #GPINR!GP2NR'GP3NR, (R3) ;ANY NOT RECEIVED ERRORS? 
10519 40226 001003 BNE 395 ¥' ie 
10520 pube30 Ot 771 056454 oo0000 MOV #0HO06,3(R1) =; SSAGE TO UNEXPECTED ERROR SET 
10521 13701 is40 395: MOV T.CS1,R1 : tf 
10522 040242 042701 177741 BIC #177741,R1 *CLEAR ALL BUT COMMAND 
10524 040246 016170 O46636 oD00000 MOV CMNDLB(R1) ,a(RO) iNOVE ADDRESS OF COMMAND MESSAGE 
10526 040254 032713 000007 BIT #GRPIST!GRP2ST! GaP3ST, (R3) T aNy GPR ERRORS? 
105e7 040260 O01462 BEQ 46S ;NO - SKIP GPR REPORT 
105¢9 : PRINT ALL THE ERRORS CONTAINED IN THE GPR1,2,3ER(UNEXPECTED ERRORS) 
10531 O40262 013701 O46S16 MOY GRP3ER, RI ;GET GROUP 3 ERROR FLAGS 
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1pe33 BYDESS DoSOS? OOlzEe tyes: fe STIPE” = tBEEaR GROUP PRINTING INDICATOR 
1 BaDSoe p03035 etree 001254 40S: MOV #17.,STMPIS CLEAR, GROUP PR At 
1053S 040304 o00241 CLC :C CARRY 
10536 040306 006001 41$: ROR Ri "ROTATE ERROR FLAGS 
10537 040310 103406 BCS 42g WAS BIT SHIFTED OUT SET? 
10538 O4031le O62 ooo002 141$: ADD #2, RO NO - BUNP POINTER 
10539 O40316 Bpes99 001254 DEC STMPIS :DEC SHIFT COUNT 
040322 001371 BNE 41g ‘LOOP IF SHIFT NOT ZERO 
10541 p03e4 00411 BR 44s 
10542 040326 O11 040340 42$: MOV (RO), 43$ ;GET_ERROR MESSAGE ADDRESS FROM TABLE 
10543 040332 104401 001273 TYPE  ,SCRLF TYPE CRLF 
10544 040335 104401 TYPE ; TYPE ERROR MESSAGE 
10545 049340 000000 43S:  .WORD S ADDRESS GOES HERE 
10546 O040342 005305 DEC RS ;DECERENENT TOTAL ERROR COUNT. 
10547 O40344 001362 BNE 141$ F ZERO 
10548 040346 000427 BR 46$ ELSE EXIT GPR ERROR PRINT LOOP 
10550 040350 905713 44g: TST (R3) TEST GPSUMF FLAG FOR PRINTING ERROP NOT RECEIVED 
10551 O403S52 100455 BMI 47§ YES - 
10552 040354 005737 oD1es2 TST $TMP14 s PRINTING GROUP 3? 
10553 040360 001007 BNE 4S$ :NO -SKI 
10554 040362 013701 o46S14 MOV GRP2ER, R1 “ELSE SET TO GROUP 2, GET GRP2ER 
10555 040366 012700 o465S6 MOV #GRPOMS , RO :8 SET POINTER ohbuse 2 ERROR MESSAGE TABLE 
10556 040372 005237 001252 INC STMP14 :BUMP TO Inocate PRINTING GROUP 2 
10557 040376 000737 BR 4O$ GO RESTART PRINT LOOP 
10558 37 o00002 o012es2 45S: CMP #2, STMP14 ‘PRINTING GROUP 1? 
10559 40406 001407 < BEQ yj ;YES - EXIT GPR ERROR PRINT LOOP. 
10560 O40410 013701 o4ES12° MOV GRPIER,R1 ELSE SET TO GROUP 1, GET GROUP i ERROR 
10561 O40414 012700 o46574 MOV #GRPIMS, RO joer POINTER TO GROUP 1 ERROR MESSAGE TABLE +. 
10562 O40420 005237 O012se INC STMP14 :BUMP TO INDICATE PRINTING GROUP 1 a 
10563 0424 000724 BR 40$ RESTART PRINT LOOP. By 
. 2 
10565 O40426 005737 001250 46S: TST STMP13 ;EXPECTING ERRORS? 
10566 O40432 001452 BEQ 49g =NO - SKIP 
10568 ; PRINT ALL ERRORS CONTAINED IN STMP1O, 11, 12(NOT RECEIVED ERRORS) 
10570 oO40434 005713 TST (3) TEST IF PRINTING NOT RECEIVED ERRORS 
10571 040436 100423 BMI 75 YES - SKI 
10572 O40440 032713 000070 BIT AGPINR! GFONR! GPSAR (R3) ;ANY NOT RECEIVED ERRORS 
10573 O40444 001445 BEQ 495 KIP 
10574 oO40446 032713 000007 BIT. sGRPIST!GRP2ST#GAPSST, () sANY NOT RECEIVED ERRORS? 
10575 O404Se 001404 BEQ 146$ :NO_- SKIP LABEL FOR UNEXPECTED ERRORS 
10576 O40454 104401 001273 TYPE  ,SCRLF i VPE CRLF 
10577 O40460 104401 O56454 TYPE DHOO6 i TYPE HEADER FOR PREVIOUS ERRORS 
10578 04 052737 100000 O46634 146$: BIS. &REPNR,GPSUMF ;SET PRINTING NOT RECEIVED ERRORS SWITCH 
10579 O4047e 010405 MOV’ =—s- RY RS :MOVE TOTAL ERRORS TO 
10580 O40474 013701 oole46 MOV STMP12,R1 GET GRP3 NOT RECEIVED ERRORS 
10581 O40S00 012700 O46536 MOV #GRP3MS, RO SET POINTER TO GROUP 3 MESSAGES 
10582 O40S504 000672 BR 140$ :GO START PRINT LOOP 
10583 040506 005737 001252 47§: TST STMP14 ;PRINTING GROUP 3? 
10584 O40S5i2 001007 BNE 48$ :NO = SKIP 
10585 py0514 13701 001244 MOV STMP11,R1 ‘ELSE SETUP TO PRINT GROUP 2 - GET ERRORS 
1 12700 O465S6 . MOV aukPets, RO :8 SET POINTER TO GROUP 2 MESSAGE TABLE 
10587 O40524 005237 001252 INC STM :BUMP TO INDICATE GROUP 2 PRINTING 


cc 
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OPERATION CHECK ROUTI 


48S: PnP 


49S: BIT 


61S: MOVB 


SOS: BIT 
BE 


538: MOV 


PEPE TUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TT ttt ttt TTT TTT Tee 


ae STHPLY 


STMP1O,R 
SGRPINS, ko 


#77, (R3) 


61S, 
#2, (SP): 


sahooeT I GPENR, (RB); 


BR START PR 
INTING 


EXIT 
3 9ET POIN 


TER 


NT LOOP 
1 

LOOP 

TO GROUP 1 MESSAGE 
AND GET GROUP 1 ERRORS. 
‘BUMP TO INDICATE GROUP 1 PRINTING 
;START LOOP AGAIN. 

; TEST IF_ANY ERRORS TO BE REPORTED 


GRP1ST!GRP2ST! GRP3ST 
i ee NS Se ! GPENR! GP3NR 


ieee EXIT. 
;BUMP FOR GOOD RETURN 


PRESET FOR GROUP 3 ERROR RETURN. 
s ANY GROUP 2 ERRORS? 


{ELSE SET FOR GROUP 2 ERROR RETURN 

;ANY GROUP 1 ERRORS? 
SKIP 

ELSE SET FOR GROUP 1 


ELSE CHANGE RETURN FORM GROUP 1 


SOs 

#6, a(SP) 
#GRP1ST!GPINR, er 
#4, a(SP) 

#ORSTER, (R3) 

#5, 0(SP) 

STESTN,RO ;SET 


SESCAP 
PRE 


TO_FORCE 
NT TEST AFTER 


TO 
$SWOSTB(RO), SESOAPE sERROR IS REPORTED 
APE T’GO TO NEXT SCOPE STATEMENT 


RETURN 


#2, SESC 


-SBTTL B BAD SECTOR CHECK 


CALL: 


2 Oke iC CC OC DC a ai akc ic ae 


BOSRCK: ad 


1$: TST 


ISR SRCK 
<ADDRESS Pore PPELD TO BE SEARCHED> 
perrerrrrerrrrerirrertrerinirrrr ire rirrtr titi trrt tert t ttt te 


Hg STMPE 


4 $TMP7 


(RG) RY 
y 


TMPS 


(RY) 
4$ 


STACK. 


S IS IN THE LOCATION AFTER 


AND L.DT. A SECT 

BAD FOR THAT CYLINDER 
IS PLACED ON THE THE 
15 PLACED ON THE STACK AFTER THE ENTIRE 
FIELD IS SEARCHED. 


F 
AND T' 


THE 
ARE LISTED THEREIN 
C D_IN 


THIS FIELD 


THE SECTOR NUMBER 


TOTAL NOMGER OF BAD SECTORS 


;STORE OLD RY CONTENTS 
T RET 


;GE URN ADDRESS 

GET POINTER TO FIELD TO BE CHECKED 
:CLEAR A COUNTE 

sTEST At HAS NO (OR NO MORE ENTRIES 


1 ERROR RETURN. 
srt IF ERROR GETTING DRIVE STATUS 


SEG 0195 
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10644 040720 023724 001614 CMP LL DCYL,(R4)+ ==: IS THY 
10645 1012 BNE 0 s3$ NO - SKIP 
ie 4 INC = RH :BUMP TO TRACK 
106s 30 123714 001607 CMPB LOT, (R4) 1S ENTRY FOR THIS TRACK? 
10646 34 001005 SNES :NO_- SKIP 
10648 OOSO46 CLR 2 = (SP) CLEAR STACK LOCATION 
10650 349740 16 move  -(R4), (SP) :PUT SECTOR NUMBER ON STACK 
10651 3 bess? 01234 INC —- STMPS ;BUMP COUNTER 
iSee OHO OODNOI Es 3 ; 
isos 040750 905304 es: Dee ;DECRENENT POINTER TO WORD ALIGN 
4 * 
ge REE BEE aa er de 
10658 O40756 O13746 001234. 48: MOV —- STMPS, -(SP) ;PUT COUNT ON STAC 
10653 O40762 013746 001236 MoV STMPE, = (SP) :PUT OLD RY CONTENTS BACK ON STACK 
10660 Oiz704 O0Le4O ” MOV  —- STMP7;R4 :SET UP 
“10661 724 TST (RY) + :BUMP PAST TRARANETER 
iDebe O4G774 OO0204 RTS RY ; RETURN 
10564 SFLSSLSFLELELERAAEAASLLLFLAASASSSSASALLAAAELSLLAAELLALAALLLLAKE 
1D6E5 DATA GENERATION AND COMPARE ROUTINE 
1DEEE iui 8 JSR RY. GENCOM 
| 10667 TROL WORD 
| ibees JSR _—s-R4, GENCOM 
| 10870 CONTROL WORD 
eek LENGTH 
| 106 
| 10673 JSR__—-R4, GENCOM 
| bere RELOCATION CONSTANT 
| ibe Cenc TH 
i 


niin y 
i ao vUSTED 1h Te CODE FOR THE FOLLOWING RETURNS: 
pA IR TURNS TQ THE LOCATION HE 
ONTROL WORD. THIS IS UNCONDITIONAL. 
HE 


THE SECOND CALL RETURNS TO THE LOCATION FOLLOWING T 
THE OPERATION REQUIRES DATA COMPARE AND DATA MIS 

IF DATA IS TO BE ATED ONLY_OR NO DATA COMPARE 
ERRORS OCCURRED, THE RETURN IS TO LENGTH +4. 

THE THIRD CALL IS IDENTICAL TO THE SECOND. 


DEFINITION OF CONTROL WORD: 
BIT 15 - 00 COMPARE OPERATI AE et (SOURCE) TO OBUFF 


toes TINTS NATION). My. EXPECTED Vat S ARE_IN OBUFF ‘DESTINATION. 
BIT 14 - T a PRON POINT ait BY LAST COMPARE. 
BIT 13 - INVOKE REMORY ote ad FOR 

EL, 1 = IVD Terai ee OR DESTIN Oe 
BIT 10 - Ta ease FETED, 
BIT 9 - 
BIT 6 - 


ieee IF 


~ CLEAR I 
BUILD HEBDERS, CONSIDERING BS 


:# 
‘éaTTL 
+ 
:# 
;* 
7% 
;# 
;# 
;# 
;# 
;# 
;# 
:# 
;# 
;# 
;# 
:# 
;# 
;# 
7% 
;% 
.S 
;# 
;# 
;# 
# 
;# 
;# 
:# 
% 
;# 
7 
;# 
;# 
;# FILES 

;# BUILD HEADERS, ALL SECTORS INDICATE GOOD SECTORS. 


Se Se Se SF C8 SS SS 8 SF SF SESS SF SS SF OF SS SE Ss C88 SH SF OF OS Os OS OS ee ee 68 Oe ee os 


TeeRnnaecuananmbeneRses 





| 
| 
| 


C16 


Ph AE Pile ithe | 


e7(} 


i 
GE 
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DIAGNOSTIC 


08 
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TIONAL CONTROL 


il 


11 F 
c. 


QI 


OTHER PATTERNS PRO 


EXPLANATION OF CALLS: 


BS oe 
oe 4 
Pal Z 
ue as 
Be 
gr Ox 
eS 
z Ee 
Bc 8g 
x0 ze 
Sy 53 
me le 4 

Sa gu 
ws wi 


£3 
oF 
- 
a. 
om 
a 
ao 
uw 
ra 


5 
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ie 

Z 
<2 
on 
fy 
os 
zz 
OG 
ta 


 O1-Se7-76 


O-U0 7 .O%. Mo" 
wwe we teeae- ‘ 


Se 











THE COMPARE CAN BE 


poi WN T 
5 15 DONE. BY CALLING GENCOM WITH BIT 14 


SET IN THE C 


DETECTS A MISC 
RE 


C. 


SEASSSRSRGS 


A ee + ee eee 


N AVAILABLE MEMORY. 3 is ee 


I 
I 


TI 
RA 
RE 


STINA 
Th GENE 
A COMPARE WILL COMPARE THE CONTENTS OF IBUFF 


AREA OF AVAILABLE MEMORY. 


MEMORY HENAGENENT 
bata 


DATA GENERATION OR 


D. 


naling eineipelineindinsinaindindinsinelindindindingindinsinaiedincieciedipsineindinginciesipelpaipaipcleeipeineipclpelpeipeleadindindiodinelinaiog 
. . . sw ee ee eee 


EH OF OH EH CH EH EH EH OS OH EH ES OH OH CH EH ET OH EH EH EH OH EH Oe CS EH EH OS EH SH EHR ES SHEESH SHEE CHEE EH EHO SESH Ee Ce ee 


TUT) 


§ 





z 
2 
3 


eeeaae 


Si on hom Dee | 


222503 


SER RRRRRE SNES 


Cee Ree ea Rae het ee ee kee eee Re oe De ee ee ee oe oe oe oe Do oe ee es ee ee a ee ee oe Fee ee ee ee oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee Doe) 


re eo 


phic 13:08 


11 


DZREKC.P11 
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ADDRESS WHERE HEADERS GO 


: 
= 
r= 

: — : 

a, ¢ eu = 

ES : ery 

Gh, Fe © Sz F ; 

Bek Bstes oe & 
oa OW oO oe 

gece ge GS oo ge tye eg Se : 

#5 28 fa Was 35 05 Of ophity Bh 

#3 52 op ogee xe 8 ae onesie € Wie 2 

BEES, CBteR ae Ged Slasy beeee we 8 

=a. EOPEYGS TGS pie, gees GBS 

-— iw “1 iC - 
yocld Soeliiuy Go8 Heota walls § SeBE 


a 
2 : 
Be Wer pe a = S 
a & te oat ; 9 S=2e= = = Q 
ok te ly 6 de dg BawwR eRe: 6g 
woot seTTse see Bonds SSescssor zesm FS 


SavRSSs guy 


SePeePaan 


co 


Boal 
- ms = ges on anh 


NUBMASS PR 


retraite A A Aut] REAR SER 


Qo 
Ce ee eae ie ee ee he ee hee ae ee ee ae) Ce ak he om Rae hoe ot oe oe | 


6664464244444 244544424 


ESE ESTES 


IP 


wizo: 


a 





: A COMPARE OPERATION? 

:SET BIT TO BE RESET IN BAD HEADER 

'ELSE CHANGE FOR 24 SECTOR MODE 

;GO CHECK FOR BAD SECTOR THIS ADDRESS 
:POINTER TO FILE TO BE CHECKED GOES HERE 
GF? # OF BAD SECTORS THIS PACK RODRESS 
‘SKIP IF ZERO 


;PRESET FOR BS FACTORY LIST 
31S THIS 26 SECTOR MODE? 


;YES - SKIP 





63 
S'STMP1 
,L-CSL 
»RS 


sagt 
scent 

8s 
BSFe4P,6$ 
. BOSRCK 
(SP)+ 

9$ 





JSR 
. WORD 
MOV 
BES 


PERSO S Sa amt 


oe Kam Rete ee Rte Rett Re ame Re Roe Roe Boe oot Roe Doe oe oe oe oe 2 ee oe ne ee ee ee ee ee eee ee Noe Ree eee ee Re ee eee ee ee ee ree ee eee ee ee ee ee eee ee ke Pore rere) 
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RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC 


=s 


E16 
ion ane COMPARE Roding | 


i 
GENE 


macy 
noREKC. Pi 01-OCT-76 13:08 DATA RA 
eis Bai ece gue be PSL ae THER “SECTOR NUMBER a 8 12, 
B14 A s TO 
is Ges Bie fbn dated 
10816 041254 O6260! ado (SP)4,R1 
10817 bulese 062701 Ape 82,R1 ;ADD 2 FOR 2ND WORD THAT SECTOR 
1Deis OMTSSS GMa7EL Obises Dezeoe Bic STP} gure cat) | CUR ELT C08 Beg. Set TOR IN HOR 
{SEs Biisse Boe sé BEE : ‘pECKEMENT BAD SECTOR COUNT 
10621 041300 001361 NE 7§ LOOP IF NOT ZERO 
1555 041302 100000 001224 9S: BIT SBITIS,STMP1 § ;WERE WE DOING BS FACTORY LIST? 
pees 131 7 BEQ 1 "NO = GO.C K TFC MUST pore 
1 1312 O1 940000 o01224 MOV SEIT14,S$TMP1  :ELSE SET BIT TO BE RESET IN 
10826 O41 013737 OOlE44 O4le36 MOV B ‘PRESET POINTER FOR 26 SECTOR 
10867 041326 27 010000 901600 BIT acFMT,0.CS1 TEST IF WE ARE DOING 26 SECTOR MODE 
i 133° Br ae38 oleHe 041236 Fy CBSSOMP, 6S TE AGE PRINTER TOR 24 SECTOR MODE 
iDes0 Bat sa8 % Be : ‘op of stone CHECK 
10832 . START OF COMPARE 
10833 O41346 012701 o00102 lis: MOV #102,R1 ;PRESET FOR 102 WORDS OF HEADER 
10834 Ovi 358 032737 010000 oo1600 BIT acFMt,L.CS1 ; CHECK IF 26 SECTOR MODE 
10835 O41 001402 BEQ 128 SKIP 
10836 041362 012701 000074 MOV 874,R1 'CHANGE TO 74 WORDS OF HEADER 
130 041366 012704 O&0bO4 12$: MOV SIBUFF,R4 :SET START OF HEADERS TO BE COMPARED 
| $0839 041372 O1270S O62604 MOV SOBUFF; RS SET START OF GOOD HEADERS 
10840 O41376 905003 CLR R3 CLEAR ¢ T 
10841 041400 040000 BIT #8IT14,RO :IS THIS A CONTINUATION OF EARLIER COMPARE 
10e42 Ov 1404 00141 BEG 13$ NO = SKIP 
10843 041406 O1 001666 28S: MOV beSHLD, RS GET VALUES WHERE PREVIOUS CHECK STOPPED 
10844 041412 013704 001670 MOV SRCHLD; RY : DESTINATION AND SOURCE 
| 1064S O4l4IE 013703 001672 MOV WRONUM? R3 WORD NUMBER IN ERROR 
| 10846 041422 013701 601674 MOV WROCNT; RI ;_ WORD COUNT LEFT IN COMPARE 
| 10847 O41426 005701 TST Ri TEST IF WORD COUNT LEFT = 0 
10848 041430 001417 BEQ 50s YES - EXIT 
| bees 041432 030000 138: BIT #81T12!BIT13,RO ; ;MEM MANAGE REQUIRED" 
10851 041436 001402 BEG 253 ;NO_ = SKIP 
| 10852 O41440 005237 177572 INC 38SRO ;TURN IT ON 
10853 Stine 022425 25s: CMP cRa)+, (RS)4 ig PARE THE WORDS 
ae Ri he OE San emo 
| 10856 041452 005301 DEC Ri sun WORD COUNT LEFT IN COMPARE 
| 10857 041454 001373 BNE 2s$ LOOP IF NO 6 
| 10858 041456 032700 o30000 BIT #81T12!BIT13,RO ;MEM MANAGE IN USE? 
10859 041462 O0140e BEQ :NO = SKIP 
| 10866 OH14e4 005337 177572 ie DEC aeSRO TURN IT OFF 
| 108b¢ 041470 012604 “MOV (SP)+,R4 ;;POP STACK INTO RY 
10863 O41M7e 185 
| 10865 : ERROR REPORT PREP AND PARAMETER STORAGE FOR CONTINUATION 
be eS 041474 010537 O01e& 14$: MOV RS, DESHLD STORE DESTINATION 


a 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC macy 1 27 (4006 0S-OCT-76 ? PAGE 200 

DZREKC.P11 01-OCT-76 13:08 DATA GENERATION AND COMPARE NE 

i Suleos peed Re Oy whey eel jLono FOR REPORT 
18853 BuletS BiNSss BRIER TARR} $RERIP 8 8 

10871 041514 010337 001206 MOV R3, SREGL2 

ised Rilees Bes z (Gis Be necro 
10874 041524 010137 OO01674 MOV R1, WRDCNT ; STORE COUNT LEFT 

10875 l 010337 MOV WORD NUM IN ERROR 

t i A BIT eo1T1 'BIT13,R0 MEN MANAGE IS USE? 

i p78 1249 ape 95 177572 C SRO aN SE 

te Saieue _ MO (SP)+,R4 POP STACK INTO R4 

iDsee paizes Beesss TST tA ‘tebe RETURA 

10884 o415S2 16$ 

losses SNieed pioeeS i i606 Stack INTO Ba 

estid ba izee Bigee3 NOY (5P)4'Ri :: POP aT AeK NTO i 

10888 O41560 012600 MOV (5P)+°RO ::POP STACK INTO RO 

10889 041562 000204 RTS RY 

10891 ; DATA PATTERN PROCESSING ROUTINE 

10893 O41564 032700 o4O000 17$: BIT s81T14,RO sCONTINUE WITH COMPARE? 
10894 ovi570 001402 BEG ions =NO = SKIP 

ines Bates pae3a8 Be eat $2086 ee COMPARE 

10898 O41576 012705 o62604 29S: . ;GET DESTINATION 

10899 O41 MOV #IBUFF GET SOURCE 

ipead pyiene B8588¢ Ett «ser Tieleit13,R0 iOS REN MANAGE? 

10901 O41l6l2 O014l2 BEQ 21s *NO - SKIP 

10903 041614 012437 172354 (R4)+,38KIPAR& ;LOAD PAR FOR RELOCATION 
10908 Ov i620 036700 010066 BIT #81712, RO ;RELOCATE SOURCE? 

bape Pa TESe poe aRe 140070 MOV $140070,R5 te, DESTINATION TO USE PAR& + OFFSET 
10907 041632 o00402 BR 21$ ; 

10808 041634 012703 140070 20$: MOV #149070,R3 :SET SOURCE TO USE PAR& + OFFSET 
19910 O41640 012401 21$: MOV (R4)+. RI sSTORE COUNT 

10911 O41642 O10446 MOV RY, = (SP) :STORE RETURN 

10912 O41644 010304 MOV Ra Re :PUT IN IBUFF POINTER 

10913 O41E46 905003 CLR R3 ?CLEAR R3 FOR WORD NUMBER COUNTER 
10314 O41650 032700 000077 BIT #77,RO ‘ANY DATA PATTERN SPECIFIED? 
10316 041654 OO1666 BEQ 13$ :NO - GO DO COMPARE 

i087 : ; START OF GENERATION ROUTINE 

10919 O41656 010537 o01666 MOV RS, DESHLD ;STORE PARAMETERS FOR COMPARE 
10920 O41662 010437 001670 MOV R4, SRCHLD 

10921 O41666 010337 001672 MOV * WRONUM 

103ee 041672 010137 001674 MOV Rl’ WROCNT 


SEG 0200 


TT SS SSS SS 
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10924 ; CODE To GENERATE DATA PATTERN IN AREA POINTED TO BY RS. 
l : MANAGEMENT WILL eeu ite NED ON BUT LOCATION 
iD : WILL TORO OCCUR UNLE' D BY SWITCHE 

10328 guig7% 932709 930000 eI #81712!B1713,RO MEMORY eee MENT REQUIRED? 
i8as3 ft Boea95 177572 INC aeSRO : TURN IT 

10931 041710 032700 o02000 33: gr #81T10,RO0 ae OO ATTERN IN IBUFF? 
1 1714 1403 Q 328 

l 1716 61 MOV RY, -(SP) ‘ELSE SWAP R4Y AND RS 
10934 041720 910504 MOV RS. RY 

10935 041722 O12605 MOV (SP)+,RS 

18336 041724 122700 090001 328:  CMPB ai sPATTERN 1 (ALL ZEROS)? 
10938 041730 001004 BNE 5 :NO = SKIP 

10939 Ovi 73¢ 30S: CLR (RS)+ :CLEAR WORD IN BUFF 

10940 041734 1 C Rl DEC WORD T 

10941 041736 001375 BNc 30$ LOOP UNTIL WORD COUNT ZERO 
10s4e 041740 00550 BR 225 ‘EXIT BUILD 

1 041742 122700 900007 SSS: CMPB  487,R0 sPATTERN 7 (ALL ONES)? 

i Buiees BraoSe 77777 PN Toe ~ i BORD IN BUFF 

1baq au Bat 5es l ; C Ri’ *DEC WORD COUN 

10948 941756 001374 BNE 31$ :LOOP UNTIL WORD COUNT ZERO 
10946 041760 000540 BR 225 EXIT BUILD 

1baey 041762 122700 S&S:  CMPB 4#2.R0 ;PATTERN 2 SET UP 

10952 041766 001003 , BNE 57$ 

10953 041770 012703 o4séé2 MOV #PATO2,R3 

10964 041774 O00S04 BR 70S 

ibaee 041776 122700 ocooo03 57$:  CMPB 4#3.R0 ;PATTERN 3 SET UP 

10957 O42002 001003 BNE 

10968 2004 Ol 045722 MOV #PATO3,R3 

1035 2oio o004 BR 

parr 042012 122700 op0004 S8$:  CMPB  #4.RO ;PATTERN 4 SET UP 

10962 O42016 001003 BNE 

10963 O42020 012703 o4s762 MOV #PATOY,R3 

10964 042024 000470 

Dee 042026 122700 ooc00s S9$:  CMPB ~ #5.RO :PATTERN S SET UP 

10967 O42032 001003 BNE 60$ 

10968 042034 012703 o4E022 MOV #PATOS,R3 

10968 o42040 d00462 

ibar o42042 122700 900006 60$:  CMPB 4#6,RO :PATTERN 6 SET UP 

1097¢ o42046 001003 BNE 61$ 

1 042050 912703 o4e062 MOV #PATO,R3 

10374 042054 70$ 

{bare 042056 122700 o00010 61$:  CMPB  #10,R0 :PATTERN 10 SET UP 

10977 puede 001003 BNE b2$ 

19978 O42064 012703 o4b122 MOV #PAT1O,R3 

109798 042070 46 70$ 
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NON OO0ORO00NUD 
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DATA GENE 


62S: 


63$: 


64S: 


6S$: 


66S: 


67$: 


68$: 
70S: 


718: 


723: 


74S: 


7233: 





09:17 PAGE 202 


ans tens 
COMPARE ROUTINE 


#11,R0 
e36 
#PAT11,R3 
70$ 


Bien 
#PAT12,R3 
70S 


#13,R0 
#PAT13,R3 
70$ 


#}3.RO 
#PAT14,R3 
70$ 
#15,R0 
67$ 
#PATIS,R3 
70$ 


#16,R0 
#PAT1E,R3 
70$ 


#PAT16,R3 
#81T11,R0 
73$ 


RY, -(SP) 
-(SP) 


RO 
#16, ,R0 


(R3)+, (RS)+ 
Rl 


74S 
RO 
71$ 


(R4)+, (RS)+ 
RI 


72$ 


(SP)+,R0 
(SP)+,R4 
2e$ 


(RB), (RS)+ 
RI 


;PATTERN 11 SET UP 
;PATTERN le SET UP 
;PATTERN 13 SET UP 
;PATTERN 14 SET UP 
;PATTERN 15 SET UP 
;PATTERN 16 SET UP 


;SET UP FOR 16 
;FIRST WORD REPEAT? 


3S RO 
sP T COUNT FOR PATTERN LENGTH 
:ST START OF BUFF 


;MOV WORD TO BUFF 
;DEC_WORD_ COUNT 

sEXIT IF ZERO 

;DEC PAT LENGTH COUNT 
;LOOP IF NOT ZERO 

;REPEAT PATTERN IN BUFFER 
;DEC WORD COUN 

;LOOP UNTIL WORD COUNT ZERO 
;RESTORE RO 

;RESTORE RY 

;EXIT BUILD 


DEC WORD COUNT 


;MOV THE SAME WORD INTO BUFFER 
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DZREKC.P11 01-OCT-76 13:08 DATA 


22S: 


34S: 
23S: 


- x 
‘ap 
+ 
1% 
: 
% 
1% 
ir 
# 


ec ee ee ee ee wee ee ae 


ADJCLK: 


CTRHLT: 


0S-0C 
GENERATION AND C 
738 


-OCT-76 09:17 PAGE 203 
OMPARE ROUTINE 


sLOOP UNTIL ZERO 


I #81712!B1T13,RO ;MENORY NA MANAGEMENT REQUIRED? 
DEC aaSRO : TURN al MEM MANAGEMENT 
TST RO 1S COMPARE REQUIRED? 
L 23$ !NO = SKIP 
MOV DESHLD, RS RESTORE COMPARE PARAMETERS 
HOV SRCHLD. RY 
V NUM; R3 
MOV WROCNT ;R1 
IMP GO START COMPARE 
MOV (SP)+,R4 ;:POP STACK INTO RY 
IMP 16 :60 To 


FH NEE TOeK LOOP CLOCK MOJUSTENT ROUNTINE 


OOP CLOCK ADJUS 


THI mr Finer fue eS VIR, A * ano") 1 aT a bit BY 2?0 8. THE 
PROGRAM V THEN JUMPS K AIUST SOUTINE 
THE ROUT INE Te Ee re THE ETRoT AVAILABLE Sao vE AND SETS AND 
RESETS DIAGNOSTIC MODE BIT IN TE FRICTIONS ON WHERE TO 
SCOPE AND WHAT TO ADJUST ARE TYPED ON THE CONSOLE. 


THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED. 


TYPE ,OPRO19 ;TYPE ADJUSTMENT INSTRUCTIONS 
MOV #SCLR weedy! ;CLEAR SUBSY io 
Vv RKCS2( Re)" ;SELECT DRIVE 


MOV :. DRVNUM, RK 
MOV #1, RKCS1(Re) 
BIT #ROY,RKCS1(R2) ;WAIT FOR READY 


Q S$ 
BIT .an we be ed | ae PRESENT 
CLR @KWLADD ;CLEAR INTERRUPT ENABLE 
MOV ~~ #DMD,RKMR1(R2) saat yh ae 


MOV Bie. ‘D ay! 
i yt ZERO 
MOV #0, RKMR1 (Re) 


MOV #12. ,RI : 

ie RI : & SUNT 
33 LOOP UNTIL ZERO 
1$ :RESTART LOOP 


FAY g ROUTINE Ts ENTERED LF WHEN A CONTROL C IS yyete 


SUBS YSTE CLEARED, THE DRIVE IS RECAL IBRATED 
NECESSARY TR RTAIN CYLINDERS ARE REFO THE ANTE ng 


IS CONTROLLED BY THE LOCATION oo WICH CONTAINS THE ADDRESS 


OF THE CYLINDER TO BE REFORMAT 


MOV #STN,STESTN ;SET UP FOR HALT FAIL 


J16 


i a 
bb b+ b= Ob = = = Ob 0 = bb = = bb = 2 + = b= BD = Ph 0 0 0-0 0 2 8 = = =< Do Oe 
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DZREKC.P11 O1-9CT-76 13:08 CONTROLLED HALT SUBROUTINE 
1 
183 o42450 104416 TSSINIT ;CLEAR SUBSYSTEM 
109% O424S52 104003 ERROR 3 :BAD INIT ERROR 
1Ra o42454 113700 001102 MOVE § $TSTNM, RO ;GET CURRENT TEST NUMBER 
1097 O42460 042700 177400 BIC #177400, RO :CLEAR UNUSED BITS 
1098 042464 022700 000003 CMP 83, RO :TEST IF TEST NUMBER 2 
1099 042470 001464 BEQ PROGEND :GO TO HALT PROG 
1100 0420472 004437 034574 ISR RY, LRLOAD LOAD "L™ REGS 
1101 042476 000113 RECAL sRECAL 
tis buseps 000000 3 :0 IS BUFF ADDRESS 
11 -BYTE 0 ; SEC OR O 
tbe Busebe BE OO - 
1108 042506 000000 0 CYLINDER 0 
1108 251 104417 TLOADRK ;LOAD RK REGS 
il esi2 104423 TWAT 16 ‘WAIT FOR INTERRUPT 
1116 042514 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
itis 16 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
1113 puse38 {paces ERROR 4 ;0RS, 6, 7 REPORT ALL ERRORS 
1115 005037 o01662 LR INTSET AR INTERRUPT FLAG 
1116 pasese rere our es CATT FOR COND INTERRUPT 
1117 042530 104002 ERROR 2 
1119 o42532 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
112d 042534 104004 ERROR 4 ;0R5S, 6, 7 REPORT ALL ERRORS 
1l22 O42536 104416 TSSINIT ;CLEAR SUBSYSTEM 
ies 042540 104003 ERROR 3 :BAD INIT ERROR 
11 4 001664 TST REFMT TEST IF REFORMAT REQUIRED 
tis piseue BOT Gas BEQ PROGEND :NO - GO TO HALT 
1127 042550 104401 051730 TYPE  ,OPRO2O TYPE MESSAGE 
11 4 034574 R4, LRLOAD sLOAD “L™ REGS 
1130 Buseea Bodies URNEAD HRHEAD 
1133 busees Moe OBUF jOBUer 1s BUFF ADDRESS 
1136 2565 000 “BYTE 0 SECT OR 
1134 042567 000 “BYTE 0 TRACK O 
1135 042570 o0031e2 312 CYLINDER 312 
1137 042572 005737 OD1664 TST REFMT ;TEST IF CYL O 
1138 042576 100002 BPL S$ 
1139 005037 001614 CLR L.DCYL 'ELSE LOAD FOR CYL 0 
1140 004437 040776 cs: JSR RY, GENCOM GENERATE HEADERS 
ial 042610 001200 1200 
1143 O42612 104417 TLOADRK ;L OAD RK REGS 
1144 042614 104434 TWAT1S9 ‘WAIT FOR INTERRUPT 
Lids 042616 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
1147 042620 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
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C.P1l1  O1-OCT-76 13:08 CONTROLLED HALT SUBROUTINE 
11148 042622 104004 ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 
11150 122737 o00002 001607 CMPB 3 Ss«8#2, LL. DT sTEST IF TRACK 2 FORMATTED 
11151 051403 BEQ PROGEND YES - SKIP 
11152 042634 105237 001607 INCB = L.OT “ELSE BUMP TRACK 
11153 042640 000761 it c$ *DO NEXT TRACK 
tiie O42642 104401 oOS2024 PROGEND: TYPE OPRO2Z21 ; TYPE HALT MESSAGE 
ities Buseds Oreree ootiee ECRE aS TACK, SP CEPR ERROR FLAG 
us ; 
tit26 Baseee 162035 01264 €LR SESCAPE CLEAR ESCAPE 
11159 042662 005737 oD0042 TST asde sTEST rt MONITOR PRESENT 
11160 O42666 O01 BEQ 10$ 
11161 042670 005037 031270 CLR SEOPCT Py “FOR END OF PROGRAM 
11162 042674 000137 O31242 IMP SEOP :GO TO END OF PASS 
11164 042700 oo0000 10$: HALT ;HALT PROGRAM 
Liles 042702 000137 001744 IMP START! *GO TO RESTART IF CONTINUE 
11167 .SBTTL HALT FAIL ROUTINE 
11168 : THIS ROUTINE IS ENTERED IF A HARDWARE ERROR IS DETECTED WHEN 
11169 x THE CARTRIDGE IS BEING REFORMATTED PRIOR TO HALT. 
11170 042706 oD0240 ABTFAIL: NOE ne 
11171 042710 104401 oS2D63 TYPE ; TYPE HALT FAIL MESSAGE 
11172 042714 000137 o4eE4e IMP bROCEND :GO STOP PROGRAM 
11173 .SBTTL TYPE ROUTINE 
11175 ; « SELKSEEAAERE KSEE RE REAAL ELE LS HA RSH EKAREREAA RELA SRL RELA ERASE LESSEE 
11176 : ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
11177 j#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
11178 *NOTEL: $NULL CONTAINS THE CHARACTER 19 BE USED AS THE FILLER CHARACTER. 
11179 ? ¥NOTED: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REGUIRED. 
11180 s ENOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
| 11185 tine a TRAP INSTRUCTION 
i 
i115 We SOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
| 11186 . TYPE 
11187 1% MESADR 
ties * 
11190 042720 105737 001157 $TYPE: TSTB  $TPFLG :;IS THERE A TERMINAL? 
11191 O42724 1 BPL 1$ -:BR IF YES 
11192 042726 HALT {HALT HERE IF NO TERMINAL 
11193 042730 000430 : LEAVE 
11194 O42732 O10046 1S: MOV RO, -(SP) ;; SAVE RO 
11195 042734 017600 ooDD02 MOV a2tsP) RO *GET ADDRESS OF ASCIZ STRING 
11196 042740 122737 OO000i 001316 CMPB  #APTENY,SENV =; ;RUNNING IN APT MODE 
11197 O42746 001011 BNE 6 *:NO.GO CHECK FOR APT CONSOLE 
11198 042750 132737 000100 001317 BITB  &sAPTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
11199 042756 OO140S BEQ 625 >:NO,GO CHECK FOR CONSOLE 
11200 042760 010037 042770 MOV RO,61$ SETUP MESSAGE RODRESS FOR APT 
11201 042764 604737 032540 ISR PC; SATY3 3;5PO0L MESSAGE TO AP 
1l20e 042770 O00000 61S: .WORD 0 “MESSAGE ADDRESS 
11 C00040 001317 62$: § BITB  sAPTCSUP,SENVM tt apT CONSOLE SUPPRESSED 


3 
2 
ae ad 
x 
g 
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DZRSKC.P11 O1-OCT-76 13:08 TYPE ROUTINE 

Te “ pear 23 te ot (SP) be cue arte 0 TO STAC 

: +,- 33 CK 

i Ne me SPL PI Hea gt 

1 0 0 726 rahe st (SP + “ jE TERMINATOR POP IT OFF THE STACK 

11209 043012 eat ooco02 3$: ADD #2, (SP) ADJUST RETURN PC 

11210 043016 o00002 RTI : RET 

11211 043020 iee716 000011 ug: CMPB 0s HT, (SP) ::BRANCH IF <HT> 

llel2 043024 001430 BEG 

leis O430e8 120716 000200 CMPB CRLF, (SP) ;;BRANCH IF NOT <CRLF> 

11215 043034 005726 Oi (SP)+ 3;;POP_ <CR><LF> EQUIV 

11216 043036 104401 TYPE :: TYPE A CR AND LF 

11217 043040 O01 SCRLF 

HE Be Mpeg 707 Ge spor ga ope ge 

11 ? 31 SS: JSR PC, $TYPE ::G0 TYPE THIS CHARACTER 

11882 ides lesa Bait ze: CHB SPIELE) (SPDs Be TY Tre Fok ating CHARS. ? 

iiges 043062 013746 001154 MOV S$NULL , - (SP) j3GET # OF nant R CHARS. NEEDED 

Hise BASSE pp common 7H: Se) PIS ER HHePRULER oF src 

11227 043074 004737 043132 JSR PC, STYPEC GO TYPE A NUL 

11228 643100 105337 043176 DECE SCHARCNT $309 Nor COUNT AS A COUNT 

11230 + 

1123) sHORIZONTAL TAB PROCESSOR 

11233 043108 112716 oo0040 8S: VB a’? , (SP) ;;REPLACE TAB WITH SPACE 

11234 O43112 004737 043132 95: JSR Pc, $TYPEC >: TYPE A SPACE 

11235 043116 132737 900007 043176 BITB #7, SCHARCNT *:BRANCH IF NOT AT 

11236 043124 001372 BNE og *:TAB STOP 

11237 043126 005726 TST (SP)+ ::POP SPACE OFF STACK 

11238 043130 0007 BR 2g ::GET NEXT CHARACTER 

11239 O43 3e 1057 136012 STYPEC: ISTB STFS. t:WAIT UNTIL PRINTER IS READY 

11241 043140 116677 ooD00e 136004 MOVB  2(SP).aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 

i 1eHe 043146 iee766 o00015 oo000e2 cHPB ac, elSP) 3315 CHARACTER A CARRIAGE RETURN? 

ied O4156 198037 043176 CLRB § $CHARCNT + YES--CLEAR CHARACTER COUNT 

11246 043164 122766 o00012 oo000e IS: CMPB Ss, 2 (SP) 7:1S CHARACTER A LINE FEED? 

11247 043172 O01402 BEQ STYPEX ::BRANCH IF YES 

11248 043174 105227 INCB (PC) ::COUNT THE CHARACTER 

i 1249 043176 0 SCHARCNT: - WORD o. ::CHARACTER COUNT STORAGE 

11251 _— . 

lee .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

11254 3 SEEKSLEKEAAREL KALLA RRA LASS RERA KRALL REA ARE KA LRA A AERA LALA ARARAEEE 

{tee GRTHIS BOUTINE 1S USED TO, CHANGE A 1G BET BINARY NIGER 10 8 Foie 

11257 :*#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

11258 jABEFORE THE FIRST apigit OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;* . ’ 


a, M16 
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Y11 27(1006) OS-OCT-76 09:17 PAGE 207 SE 
aeettc rr Stent Re os CONE 1 BINERY TO DECIMAL AND TYPE ROUTINE 3 
ugbo 0“ Pte . +:PUT THE BINARY NUMBER ON THE STACK 
1 1Be3 i ros tS a, TO THE ROUTINE 
11 
11264 043202 STYPDS: Ae e a hae Gunn 
Hes fe bis m Gs | ERR ee 
1 1 >a i 
Hse Bigs iO SBS) | Re Rs oes 
11553 o43514 1a 020200 MOV #20200, © (SP) sSET fe In yauITCH AND SIGN ere Scar 
11 0 000020 Vv (SP), é + f , } NUMBER aes 
Libre es , 40S NEG is :: i Me BINARY NUMBER POS. os 
tisca “ go00ss 000001 MOVB = #’=, 1 (SP) MAK’ THE SCI NUMBER NEG. reas 
11622 Bassa 1S CLR RO ZERO THE CONSTANTS INDEX Se 
11576 O4a20 012703 O4SHIE MOV. —«SSDBLK.R3 j}SETUP THE OUTPUT POINTER aay: 
11578 Baaou4 oteeo3 oo0040 MOVB My , (R3)+ Hay THE IRS! CHARACTER TO 
: R D NUMBER ; 
tis78 D4aeee OTESRT 043406 ” Soy DTBL(RO),R1  ::GET THE $e) : 
11523 Bassee reaapte 3S S ay Re Her THIS BCD DIGIT ; 
{ibe Bassee ie PAC Re + CREASE NFAE BCD DIGIT BY 1 
tt 382 ate: : eR at +:ADD BACK THE CONSTANT 
Lees piste ppSy as ” Ter Retr : {ove TE 8b bIGIT=0 
tides baae74 5 eat ata *8p) js STILL BOING LEADING 0°S? 
11288 043276 100407 BMI 75 3BR 
11289 043300 106316 S$: ASLB = (SP) sims? 
11290 043302 103003 BCC | Bs jBRIIFINO cron 
tibas a bess 33 ane jobdile 6S: ers. LB Re —_ + NBRE se ecb DIGIT ASCII 
tises D4aai6 55 ooc04 7S: BIS #’ | Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
{1534 Busse Preoe5 . i MOVB Re, (R3)+ ssRUT HIS acHBRACTER IN THE OUTPUT BUFFER . 
ti53e bus3e6 Seaasy 900010 chp RO. #10 is CHECK THE TABLE INDEX 
11297 043332 002746 BLT 2g He DO THE 
3334 oos002 T 8 33 
i138 pee’ BA Rov ee + EE MAGE 70 ASCII 
11300. Basse re 8S: TSTB =: (SP) + : thas THE LSD THE FIRST NON-ZERO? 
11305 Basse tebe 177777 177776 oye “Isp, -2(R3) jiYES-cSET THE SIGN FOR TYPING i te 
11304 043354 105013 9g: CLRB —s- (R33) : s3SET THE TERMINATO ae 
1130S 043256 012605 MOV (SP)+,RS i3POP STACK INTO RS 
itso Basse Bi Sepe NOY (Bpys Re ::POP STACK INTO Re a 
{1308 043364 012601 MOV (SP)+'RI ::POP STACK 
{1308 043366 012600 MOV (P+ RO jsPOP ST STACK into RO. 
11349 043374 areeee Baaaoe oo00004 nove B(SP),4(SP) + ADJUST me STACK 
3402 012616 MOV _- (SP) +; (SP) 
11315 043404 00002 RTI ;;RETURN TO USER 
11314 043406 023420 SDTBL: 10000. 
11315 043410 001750 1009 
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CONVERT BINSRY TO DECIMAL AND TYPE ROUTINE 
100 
i0. 
SOBLK: 


. BLKW 
.SBTTL Binaky 10 OCTAL (ASCII) AND TYPE 


s SFSSSSSESLLSSSEA SLSASHLSSSSELALELESHELFLSSESSASLLLLFELSSSSELESEFE 


(ASCII) 


:ATHIS ROIS Is Uee TO Caran A 16-BIT BINARY NUMBER TO A &-DIGIT 
;#0CT NUMBER AND TYPE IT. 
i #$'YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


7#C 
:% MOV NUM, - (SP) :;NUMBER T TYPED 
:* TYPOS fhm FOR OE ou 
2% .BYTE ON ::Nzl TO & FOR SUMBER OF DIGITS TO TYPE 
:# :;1=TYPE LEADING ZEROS 
2% ::O=SUPPRESS LEADING ZEROS 
;# 
#87 YroS ok BN HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
oe 
+ Hoy NUM, -(SP) ;NUMBER TO BE TYPED 
i YPON CALL For TYPEOUT 
#$1yPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
:# MOV NUM, -(SP) ;NUMBER TO SE TYPED 
te TYPOC CALL FOR TYPEOUT 
$TYPOS: MOV a(SP),-(SP) s3PICKUP THE MODE 
MOVE 1(5P),SOFILL © 3 ;LOAD ZERO FILL SWITC 
MOVB (SP)+'SOMODE+1 ::NUMBER OF DIGITS TO TYPE 
8 (SP) ADJUST RETURN ADDRESS 
BR STYPON 
STYPOC: MOVB 1,SOFILL :;SET THE ZERO FILL SWITCH 
MOVE 96; SOMODE+1 ::SET FOR SIx(&) DIGITS 
STYPON: MOVE 85, SOCNT ::SET THE ITERATION COUNT 
MOV ’=(SP) ::SAVE R3 
MOY Ry’ -(5P) ::SAVE RY 
MOV -(5P) :: SAVE 
nove SohODE+1 ,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
ADD 9,4 ;;SUBTRACT IT FOR MAX. ALLOWED 
MOVB RS SOMODE 3 SAVE IT FOR 
MOVS  $OFILL.RY ger THE ZERO iedt nano SWITCH 
MOV 12(5P)- CKUP THE I 
CLR R3 CLEAR THE OUTPU WORE. 
1S: ROL Re fore MSB INTO a 
2s: ROL RS : FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV RE ,R3 
3S: ROL R32. ::GET LSB OF THIS, DIGIT 
DECB SOMODE ;;TYPE THIS DIGIT? 
BPL ? F NO 
BIC #177770,R3 Ger RID OF JUNK 
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0+ = hd 20-2 + 0-0 4 8 88 Odo 8d +o odd 8 o-oo +0 + <— 26-2 > +6 +b +b + b+ 0-2 &-< D-* 2 ++ 6 + 0-0 0-2 =O 0 -+ B+ & + B-< B+ &-- B-< B+ 4 Do ¢ 2 
URE Ln 
fw 
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ll =: O4 -OC T-76 13:08 BINARY 70 OCTAL (ASCII) AND TYPE 553 
o43S62 001002 4$ + TEST FOR O 
043564 905704 5 c4 SUPPRESS THIS 07 
O43566 001402 BEG cs ::BR IF YE 
p4se20 soSE04 4$: ing Ry ::DON’ T SUPPRESS ANYMORE 0°S 
703 900060 1s 8°0,83 ?:MAKE THIS DIGIT ASCII 
043576 02793 p00 S$: ers . af ss MAKE Bscll a NOT ALREADY 
aed 1033; Baseue TORE ag ::60 TYPE THIS DIGIT 
043612 105337 043650 7: DECS == $0CNT ;;COUNT BY | 
043616 003347 BGT 2 7BR Ma MORE TO DO 
043620 902402 BLT 63 ::BR IF DONE 
043622 005204 INC a4 *: INSURE LAST DiGzT SN" T A BLANK 
043624 9007 2s 360 bg THE LAST OI 
043626 O12605 és: V (SP )+,R5 ::RESTORE RS 
043630 012604 MOV (5P)4'R4 r:RESTORE RY 
043632 012603 MOV (5P)+'R3 ::RESTORE R32 
O43634 O16666 O00002 oD0004 MOV ecSP)'4(SP) :SET THE STACK FOR RETURNING 
O43642 O12616 MOV (SP)+, (SP) 
3644 900002 RTI ; ;RETURN 
0436 099 3 BT : :3 STORAGE FOR et DIGIT 
04364 000 Y :; TERMINATOR F PE ROUTINE 
043650 009 NT: .BYTE 0 s3QCTAL DIGIT C 
043651 005 SFL: “BYTE : O FILL SWIT mye 
O43652 900000 SOMODE WORD au? : NUMBER OF DIGITS TO TYPE 
"S8TTL| TTY INPUT ROUTINE 
Ss ae Ln ea eee 
L 
043654 900000 STKCNT: .WORD 0 ; sNUNBER OF ITEMS IN QUEUE 
O4365— 900000 STKOIN: .WORD 0 : INPUT POINTER 
900000 STKQOUT: .WORD O OUTPUT POINTER 
900001 STKOSRT: .BLKB 1 Y KEYBOARD QUEUE 
043663 STKOQEND=. 
O43664 EVEN 
;#TK INITIALIZE ROUTINE 
#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
 ¥SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
s#CALL: 
;* JSR PC, STKINT 
:# RETURN 
D43664 005037 043654 $TKINT: CLR STKCNT ;:CLEAR COUNT OF ITEMS IN QUEUE 
043670 012737 O43662 043656 MOV ASTKOSRT,STKGIN ;;MOVE THE STARTING ADDRESS OF THE 
043676 013737 O43656 043660 MOV STKGIN, STKQOUT ;:QUEUE INTO THE INPUT & OUTPUT POINTERS. 
043704 012737 043734 900060 MOV #STKSRYV, DBTKVEC i SINITIALIZE THE KEYBOARD VECTOR 
043712 012737 000200 oc0006e2 MOV #200 aatKVEC+2 33"BR” LEVEL 4 
3720 005777 135222 TST AR DONE FLAG 
042724 912777 OO0100 135212 MOV 8100, a81Ks ENABLE TTY KEYBOARD INTERRUPT 
3732 000207 RTS PC :RETURN TO CALLER 


;#TK SERVICE ROUTINE 

;#THIS pie WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*#BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
;#IT IN THE QUEUE. 
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A 
. ) 
4-0CT og TTY INPUT ROUTINE 


:#IF THE CHARACTER IS A “CONTROL-C™ (1C) STKINT IS CALLED AND 
:#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTGRT GODRESS ‘CTRHLT) 
LI7746 135206 $TKSRV: MOVB aSTKB,-(SP> : PICKUP THE CHARACTER 
oie? 18 177600 8Ic etCl7?, (SP) +: STRIP THE JUNK 
O2ibe7 900003 =ée (SP), #3 ::IS IT A CONTROL C? 
001007 BNE 1$ 3 H IF NO 
Oh TYPE SCNTLC ©: TYPE @ CONTROL-C (tC) 
737 BaSeE an ISR BC STKINT >: INIT THE KEYBOARD 
00S72& TST (SP)4 ::CLEAN UP STACK 
000137 o4e442 JMP CTRHLT ::CONTROL C RESTART 
021827 18: data (SP), 87 2:IS IT A CONTROL G? 
001004 BNE $ ::BRANCH IF NO 
737 «000176 001140 CME SSWREG, SWR ::1S SOFT-SWR SELECTED? 
1500 BE 6s °:G0 TO SWR CHANGE 
es: 
022737 900001 o42654 CMP #1, STKCNT s;IS THE QUEUE FULL? 
001004 BNE ;;BRANCH IF_NO 
104401 O01266 TYPE SBELL t:RING THE TTY BELL 
00S726 TST (Spies ::CLEAN CHARACTER OFF OF STACK 
000451 cial S$ 3 ;EXIT 
021827 900023 2S: CMP (SP), #22 ::IS IT @ CONTROL-S? 
0010e1 BNE 32S ;;BRANCH IF ! 
005077 135104 CLR asTKS ::DISABLE TTY KEYBOARD INTERRUPTS 
005726 TST (SP)+ :: CLEAN ST 
105777 125076 318: TSTB 42s OSTKS ::WAIT FOR A CHAR 
100375 BP. 3 ::LOOP UNTIL ITS THERE 
7746 135072 VB  aSTKB.-(SP) 2:GET THE C TER 
042716 177600 BIC etC17?, (SP) ::MAKE IT 7-BIT ASCII 
000021 Ct (SP)+, bel ::IS IT A CONTROL-G 
051366 SNE 318 ::BRANCH IF NO 
012777 000100 135050 MOV #100, 2$TKS ::REENABLE TTY KEYBOARD INTERRUPTS 
oocode RTI ; ;RETURN 
005237 43654 328: INC $TKCNT ::COUNT THIS CHARACTER 
021627 o00140 CMe (SP), #140 ::IS IT UPPER CASE? 
002405 BLT 4 ::BRANCH IF YES 
021627 000175 CMP (SP), #175 ::IS IT A SPECIAL CHAR? 
BGT 4§ :: BRANCH IF YES 
042716 900040 BIC #40, (SP) ::MAKE IT UPPER CASE 
112677 177530 4$: MOVB  (SP3+,a$TKQIN ;:AND PUT IT IN QUELE 
37 043656 INC STK ::UPDATE THE POINTER 
023727 O42656 043663 CMP STKQIN, SSTKGEND ;;GO OFF THE END? 
001903 BNE c$ ?:BRANCH IF NO 
012737 O42662 O43ESE MOV SSTKQSRT,STKQIN ::RESET THE POINTER 
oocode cs: RTI : RETURN 
3 SFLSSLESPASELASSEASSSSAHESRAAARSLSAALAEALAARALARALRSRAASLSRALSLSAAAREE 
:&SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
*#CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
022737 000176 001140 $CKSWR: CMP #SWREG, SUR ;;1S THE SOFT-SWR SELECTED 
001124 BNE 15$ ::EXIT IF NOT 
105777 134756 TSTB © aSTKS ::IS A CHAR WAITING? 
100121 BPL 153 ::IF NOT, EXIT 
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11484 O44170 L1774E 134752 MOVE  a$TKB,-(SP) 
114es O44174 42718 77800 gic atC17? (SP) rg eae ASCII 
ils Raaees BETES. ne BNE Sg : a eat IN "THE TTY QUEUE 
| iisgs 
] 14 aeeTROL Te PASSED 10 THIe POINT FROM EITHER THE TTY INTERRUPT © 
| t]42 CONTROL 15 FROM THE SOPTHARE CUITCH REGISTER T Tree RESULT OF a 
114 era ge G BEING Meeb 0 TE a see ears zie BEING SELECTED. 
| 11484 ovN20e 23727 001134 90000! is: SMES MODE? 
ie Gree Ge Gey c sexx 
| [i4e> Guusag BeetSS ou scey 38s PE. STKINT ee cy ao Sueur SuEue 
/ [1888 044224 005077 134714 CLR astKs Y KEYBOARD TRYERRUPTS 
| 11393 044230 112737 00000: 001125 MOVB  81,S$INTAG :i0r? Pre RRUPT MODE INDICATOR 
11501 oO44236 104401 o4sDE2 TYPE §,SCNTLG 5 ECHO THE CONTROL-G ‘( 1G) 
11502 o44242 104401 g45067 SGTSWR: TYPE SHSUR i $3 TYPE CURRENT ogONTENTS | 
11208 Agads TYPOC SHREG, ROME PET ocTAL A ASCII(ALL DIGITS) 
| 11505 O44254 04401 0451 TYPE  ,SMNE ::PROMPT FOR NEW SWR 
| LISD 260 19$ CLR ~(SP) ; }CLEAR_COUNTE 
| 11507 O44262 o05046 €LR -(5P) 
| JY50@ 44264 105777 134654 7$: TSTB  a$TKS :igoe T RE? 
11503 044270 100375 BPL 7§ IF NOT TRY AGAIN 
| YISr1 o44e72 117746 134650 MOVB § 9STKB,-(S Nae ae 
1151 o44276 O42716 177600 BIC aS ribs (Sp ::MAKE IT oBTT ASCII 
_ LIES 044302 021627 900003 CMP (SP), #3 531 IT A CONTROL-C? 
, LISIS 044306 O010i5 SNE 9 T 
| TI5IE 044310 104461 o4soso TYPE SCNTLC YES ECHO. CONTROL - C (4) 
| IE17 O44314 062706 O0000¢ ADD & >: CLEAN UP 
/ LIS18 O44320 123727 001135 00001 CMPB Os SINTAG, #1 HREENRELE. oy KEYBOARD INTERRUPTS? 
11518 O4422¢ 01003 BNE :BRANCH IF NO 
11520 044330 012777 O00100 134606 MOV #100, aS TKS ALLOW TTY KEYBOARD INTERRUPTS 
| 115e 044336 000137 o42442 gs: IMP CTRHLT ::CONTROL-C RESTAR 
(‘415383 
| 11524 o44342 021627 oD0025 9S CMP (SP), #25 3318 17 A CONTROL-U? 
11525 O44346 O01005 ii H IF 
| LSE 350 104401 o4soss TYPE SCNTLU ::YES, ECHO RONTROL =U (tu) 
| 11627 944354 062706 208: ADD ke. SP :: IGNORE PREVIOUS INPUT 
| J1&3¢ 006737 BR 19¢ ftLeT S TRY IT AGAIN 
HES 
11531 oO44262 021627 oOD0015 10S: C (SP), #15 3315 17 A <CR>? 
11532 366 901022 BNE iss :BRANCH IF NO 
11533 370 905766 oo0004 TST 4(5P) tYES IS IT THE FIRST CHAR? 
11534 044374 001403 BEQ 118 ::BRANCH IF YES 
11535 044376 O16E77 oODODe 134534 MOV 2(SP), ISWR ti VE NEW SWR 
HER Beats Pea BR HE be ee HERR oe ae 
| J153e O444i4 123727 Bet Tse 900001 ‘ CMPB 4s SINTAG, #1 4H ENABLE Try “bp” INTERRUPTS? 
11539 Oww4u22 00] BNE 15$ ::BRANCH IF NOT 
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MOV #100, a$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 
tee: es PC STYPEC ERA Ha 
ey a e4, si Bcee < 9? 
SLT 188 ::BRANCH IF YES 
CMP (SP), #67 !iCHAR > 
SGT 18$: :: BRANCH IF YES 
8I¢ #60, (SP)+ s;STRIP-OFF ASCII 
TST 2:5?) ::1S THIS THE FIRST CHAR 
= te TAO SHIFT PRESENT 
Q (apt giNO, OR OVER TD MAKE 
ASL (SP) A ROOM FOR NEW 
17 INC 2(SP) : KEEP COUNT OF CHAR 
I -2(SP), (SP) ss IN NEW CHAR 
7$ 3;GET THE NEXT ONE 
i8$: TYPE SQUES +: TYPE ?<CR><LF> 
208 ::SIMULATE CONTROL-U 


ss RERESEAREFLFLE SAS REALE SFLELSLELELLAALELALELELELERLELELELLERELAFESE 


sATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:# ROCHR :;GET A CHARACTER FROM THE QUELE 
7 RETURN HERE > ;CHARACTER IS ON THE STA 
:# ;;WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP). -(SP) ;;PUSH DOWN THE PC AND 

MOV 4(SP5,2(SP) >: THE PS = 

CLR 4(5P) ::GET READY FOR A CHARACTER 

CLR -(5P) ::PUT NEW PS ON STACK 

MOV #64$,-(SP) ::PUT NEW PC ON STACK 
a RTI ::POP NEW PC AND PS 
i$: TT STKCNT ;;WAIT ON A CHARACTER 


1 

TKCNT ;;DECREMENT THE COUNTER 
MOVE ST TKQOUT, 4(SP) ;;GET hE CHARACTER 

STKQOUT .. ;;UPDATE THE POINTER 
CMP $TKQOUT, #STKGEND ;;DID if GO OFF OF THE END? 


BNE 33 H 
MOV SSTKQSRT,STKQOUT': RESET THE POINTER 
2s: RTI .: RETURN 

5s REREERERRERER EEE ERE ER ERERRERER EEE SREAEERER RARER EARAREE EERE RETR 
:ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


: ROLIN ;; INPUT A STRING FROM THE TTY 
ie RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 


# :; TERMINATOR WILL BE A BYTE OF ALL O'S 
SROLIN: MOV R3,-(SP) ;;SAVE_R3 

CLR -(5P) ::CLEAR THE RUSOUT KEY 
1$: MOV sSTTYIN,R3 ET ADDRESS 


28: CMP #STTYIN¢S.,R3  ::BUFFER FULL? 


aS — 
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11596 O44620 101456 
a4 044622 et 
Hes Ree 
ary O4W63e 001022 
He Se Hi 
ee O44E40 is 
He RS ie 
116% O446SE 005303 
Hee fee ih 
11610 O446 1b438; 
11611 Q44676 O00746 
1i6le O44700 005716 
11613 O4470e 001406 
11614 044704 112737 
11615 O8471le 10440] 
11616 O44716 005016 
11617 O44720 122713 
11618 044724 001003 
11619 O44726 10440] 
11620 O4473e 000726 
liéel O44734 122713 
lige2 O44740. 001011 
11623 O4474e 105013 
11624 O44744 10440! 
He oe 
1i6e7 O44756 104401 
11628 O44762 000712 
11629 O44764 111337 
11630 O44 1) 
13631 O44774 1227 
11632 00130S 
11633 195063 
11624 045006 104401 
11635 O450le 0057e6 
11636 045014 012603 
11637 O4S016 O11646 
11638 045020 O16666 
11639 O4S0e6 012766 
11640 045034 000002 
11641 O4S036 000 
1l642 045037 000 
11643 045040 000010 
Hes bee Dube 
LIE4E O4506e 043536 
11647 045067 01S 
11646 apes O36440 
TIE4S O45100 S20040 
11650 O45106 Qc0075 
11651 O4Sile 


000134 
O4S040 


3 
SC 


000134 


045036 


045036 
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g09 
p000ie 
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10§: 


6$: 


ss: 


4$: 
3S: 


9S: 


STTYIN: .BL 


“ASCIZ 
.ASCIZ 
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4$ 


(SP)+, (R3) 
#177, 7,¢R3) 


(SP) 

f 
os 
a1, (oP) 
ca GAREY EN 
(R3),9$ 
3$ 

(SP) 

7$ 
8°\,9S 
tsp) 
#25, (R2) 
SCNTLU 
22, (R3) 


Mog 


740/418) «12> 
/4U/¢1§><12> 
£4#67¢415><12> 


€15><12>/SWR = 


/ NEW = 


::8R IF YE 
1390 READ ONE CHARACTER FROM THE TTY 
ba BESS 

i315 IT A RUBO 

THIS THE FIRST RUBOUT? 

IF NO 

He A BACK SLASH 


3;SET THE RUSOUT KEY 
; ;BACKUP_BY_ ONE 
73 STACK EMPTY? 


F YES 
i867 Pee TYPEOUT THE DELETED CHAR. 
: 360 READ ANOTHER CHAR. 
7 UBOUT KEY SET? 


F NO 
: TYPE A BACK SLASH 


;;CLEAR THE RUBOUT KEY 
ii25 CHARACTER A CTRL U? 


ae 


os THE. BUFFER AND LOOP 
;;ECHO THE CHARACTER 


dhe FOR RETURN 
33 ate IF NOT RETU 
= 
:FCLEBN RUBOUT KEY FROM THE STACK 


3 
ek STACK AND PUT ADDRESS OF THE 
i FIRST ASCII CHARACTER ON IT 
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READ AN OCTAL NUMBER FROM THE TTY 


.SETTL READ AN OCTAL NUMBER FROM THE TTY 


sy ERRRSASLASSSALASSSLSSLE REL LSASS SALES LELELSLESFLELSLELAELELELESSE 
:ETHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
"CHANGE IT TO BINARY 


NPUT CHARACTERS WI CHECKED TO INSURED THEY ARE sf 


:#T I L BE GAL 
ected & DISITS. IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPED 
:#FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
: RDOCT ;;READ AN OCTAL NUMBER 
:* RETURN HERE ':LOW ORDER BITS ARE ON TOP OF THE STACK 
1% ::HIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV (SP). -(SP) ;;PROVIDE SPACE FOR THE 

MOV u(sP} 2(SP) : + INPUT g 

MOV RO, -(5P) ::PUSH RO ON STACK 

MOV R1,-(SP) ;;PUSH R1 ON S 

MOV Re’ -(5P) ::PUSH Re ON STACK 
18: RDLIN !:READ AN ASCIZ LINE 

MOY (SP)+,RO GET ADDRE E OF 1ST CHARACTER 

MOV RO, SS ::AND SAVE 

cuR Ri ?:CLEAR DATA WORD 
23: MOVB (RO)+,-(SP) :;PICKUP THIS CHARACTER 

BEQ 3$ ::IF ZERO GET 

CMPB sé, (SP) ::MAKE SURE THIS CHARACTER 

BGT 4g ::1$ AN OCTAL DIGIT 

CMPBsoag’7, (SP) 

BLT § 

ASL Rl s3%e 

ROL RD 

SL Rl 3384 

ROL Re 

SL Ri 3728 

ROL Re 

BIC #107, (SP) :;STRIP THE ASCII JUNK 

BD (SP)+, Rt ::ADD IN THIS DIGIT 
2S: TST (SP)+ ::CLEAN TERMINATOR FROM STACK 

MOV Ri, 12(SP) ::SAVE THE RESULT 

MOV Re’ SHIOCT 

MOV (SP) +,Re :;POP STACK INTO Re 

MOV (SP)+’RI ::POP STACK INTO RI 

my (SP)+,RO ;;POP STACK INTO RO 
4$: TST (SP)+ ::CLEAN PARTIAL FROM STACK 

CLRB —s_- (RO) ::SET A TERMINATOR 

TYPE :: TYPE UP THRU THE BAD CHAR. 
cs: .WORD 0 

TYPE SQUES 3372" “CR” 8 MLE 

ds 3; TRY AGAIN 
SHIOCT: 0 HIGH ORDER BITS GO HERE 


: .WORD ¥ 
“SBTTL SAVE AND RESTORE RO-RS ROUTINES 
5 5 EERE RREAA EERE REESE RELL ESLER EAE RE EEERRELERRRARALA REAR RAAT 


SEO 0214 
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Pll 01-OCT-76 13:08 SAVE AND RESTORE RO-RS ROUTINES 


Sd 


to . 


;*#SAVE RO-RS 
;#CALL: 


;* SAVREG 
3 AUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
2 #TOP---(416) 


0 0+ bb 0 bd OD 
WD IO UE Gotu ww 


? 
7 
? 
? 
? 3% ¢2---(+18) 
7? p% +4---R5 
? 1% 46---R4 
? :# +8---R3 
7 3 #+10---Re 
Zz 3#+12---R1 
720 3 *#+14---RO 
33 SSAVREG 
rd 3 
7e3 paeses 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
724 «O452545 010146 MOV R1;-(SP) ::PUSH R1 ON STACK 
725 O4S256 010246 MOV Re. -(SP) ::PUSH Re ON STACK 
726 045260 910346 MOV R3,-(5P) ?:PUSH R3 ON STACK 
727 O10446 MOV Ry’ -(5P) !:PUSH RY ON STACK 
728 O4S264 O10S4E MOV RS'-(5P) ::PUSH RS ON STACK 
723 045266 O1EB4E oD0022 MOV 22tsP),-(SP) ::SAVE PS OF MAIN FLOW 
730 O4S272 O1GEY4S O00022 MOV 86 (56),-(5P) -:SAVE PC OF MAIN FLOW 
731 O45276 OlSE4E 090922 MOV (5p)'-(5P) :: SAVE PS OF CALL 
732 O45302 O16e46 MOV 22(5P);-(SP) ::SAVE PC OF CALL 
733 pooode2 RTI 
é 
735 ; *#RESTORE RO-RS 
53 : RESREG 
738 O45210 $RESREG: 
ree Fes ESS Sees Sy BES) mag Be oF Oa 
74] St EEPE pporss MOV (8p )3'55(eP) 2: PC OF SAIN FLOW 
74a 04S 012666 o00022 MOV (SP)+. 22(SP) S OF MAIN FLOW 
743 045330 012605 MOV (SP 4°85 ::POP STACK INTO RS 
744 045332 012604 MOV (SP)+'R4 : TACK INTO R4 
745° OME 012603 MOV (5P)+/R3 ::POP STACK INTO R3 
746 045336 12602 MOV (5P)+'Re ::POP STACK INTO Re 
747 O45340 012601 MOV (SP)+-R1 ::POP STACK INTO RI 
748 342 012600 MOV (SP)+'RO ::POP STACK INTO RO 
748 945344 00002 RTI 
70 .SBTTL POWER DOWN AND UP ROUTINES 
752 5, REREEEELA ELLE SAE LLELAA ALLELE SEA REL ALA RELEAEAALEA ELAR ERE LLLAE AES 
752 *POWER DOWN ROUTINE 
738 O4S246 0127327 oO4SS0E 900024 SPWRDN: MOV #SILLUP, JePWRVEC ;;SET FOR FAST UP 

S O453S4 012737 900340 O000c6 MOV #340, D8PWRVEC+2 ;:PRIO:7 
756 O45 510046 MOV -{SP) ::PUSH RO ON STACK 
757 O45264 O10i4E MOV Ri’ -(SP) !:PUSH Rl ON STACK 
758 OHS 010246 MOV Re. -(5P ::PUSH Re ON STACK 
759 045370 O10346 “OV R3,-(SP) ::PUSH R3 ON STACK 
760 O45372e O1O446 MOV RY, -(SP) ;;PUSH RY ON STACK 
761 O45374 O10S46 MOV RS: -(SP ::PUSH RS ON STACK 
762 O45376 O17746 123526 MOY QSWR, -(SP) ::PUSH JSWR ON STACK 
762 O45402 010637 O4S512 MOV SP, SSAVRE SAVE SP 
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POWER DOWN AND UP ROUTINES 


ms SSPWRUP,@BPWRVEC ;;SET UP VECTOR 
8 ;;HANG UP 
-EEEREPEESSESEESEESELE LEA LE LA ALES EEEEEEESESASEESEREAFSLAALER SESS 


'SOWER UP ROUTINE 
SPuRUP: MOV SSILLUP, JSPWRVEC ; ;SET FOR FAST DOWN 


SSAVR6, SP 

CLR SSAVRE WAIT LOOP FOR THE TTY 
18: INC SSAVRE ;;WAIT FOR THE INC 

BNE 13 ::0F WORD 

MOV (SP)+, ISWR ::POP STACK INTO aSWR 

MOV (SP )+'R5 ::POP STACK INTO RS 

MOV (SP )+'R4 ::POP STACK INTO R4 

MOV (SP )+,83 :: POP STACK INTO Rg 

MOV (SP)+'R> zt TACK INTO R 

MOV (SP)+'RI POP STACK INTO RI 

MOV (SP)+_RO 3 POP sTaCk NTO TO Be 

MOV SSPWRON, JSPWRVEC T uP T DOWN VECTOR 


MOV #340, J#PWRVEC+2 ; BRIO 
TYPE ‘hepoRT THE POWER FAILURE 


SPWRMG: aro SPOWER ;;POWER FAIL MESSAGE POINTER 

SILLUP: HALT 3; THE POWER UP SEQUENCE WAS STARTED 
BR 2 +5 BEFORE THE POWER DOWN WAS COMPLETE 

SSAVRE: 0 ;;PUT THE SP HERE 

SPOWER: .ASCIZ <15><12>"POWER™ ” 


EVEN 
-SBTTL TRAP DECODER 


; LELEAEREREREEERSAREEEA LEAL ALLE EEE REE RE RE REESE SESESELSLALELELES EE 
;#THIS ROUTING WILL pias THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 

USE IT TO INDEX HE TRAP TABLE FOR THE STARTING ADDRESS 
:x0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#GO TO THAT ROUTINE. 


iene MOV RO. -(SP) SAVE RO 
MOV 2(8p). RO :iGET TRAP ADDRESS 
TST -(RO) :BACKUP BY 2 
MOVB (RO), RO ::GET RIGHT BYTE OF TRAP 
ASL RO ::POSITION FOR INDEXING 
MOV STRPAD(RO) ,RO $ INOEX TO TABLE 
RTS RO :GO TO ROUTINE 


:;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(5P) ::MOVE THE PSW DOWN 
::RESTORE THE PSW 
.SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STORTING ADDRESSES OF THE ROUTINES CALLED 
;*#BY THE “TRAP” INSTRUCTION 
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. ROUTINE 
o4ss4e STRPAD: .WORD  §TRAP2 
042720 STVeE :;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
043452 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMSER (WITH LEADING ZEROS) 
pusteb STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
34E6 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CAL!) 
043202 STYPDS ::CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMSER (WITH SIGN) 
o44242 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
o4415e2 SCKSWR ;;CALL=CKSWR © TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
044514 SRDCHR 3:CALL=ROCHR RAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ::CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
045112 OCT ::CALL=RDOCT  TRAP+12(104412) READ AN OCTAL NUMBER FROM TT 
SSAVREG ::CALL=SAVREG TRAP+13(104413) SAVE RO-RS INE 
045310 SRESREG ;;CALL=RESREG © TRAP+14( 104414) RESTORE RO-RS ROUTINE 
034122 SCOP1$ ::CALL=SCOP1  TRAP+15(1044i5) INTERNAL LOOP ON ERFOR 
035722 SSINIT : sCALLST TSSINIT TRAP+16(104416) INITIALIZE SUBSYSTEM 
L ::CALL=T TRAP+17(104417) LOAD RK611 FOR OPERATION 
034716 GETRK t KOCL=TGETRK TRAP+20(104420) GET RK611 REGISTERS 
036706 CHKOP ;:CALL=TCHKOP TRAP+21(104421) CHEC ATION FOR ANY 5 
036654 ::CALL=TC TRAP+22( 104422) CHECK OPERATION FOR EXPECTED ERRORS 
034430 TWATI6 ::CALL=TWATI6 TRAP+23(104423) WAIT 16 MS 
44 IWAT32 ::CALL=TWAT TRAP+24< 104424) WAIT 32 MS 
O34410 IWATHS ::CALL=TWATYS  TRAP+2S( 104425) WAIT 48 MS 
924499 IWATS4Y ::CALL=TWATEY  TRAP+26(104426) WAIT 64 MS 
034370 TWATBO ; }CALLSTHATEO TRAP+27( 104427) WAIT 80 MS 
034360 IWAT96 ;;CALL=TWATS6 TRAP+30(104430) WAIT 96_MS 
4350 IWATI12 i {CALL=TWATI12 TRAP+31(104431) WAIT il2 MS 
034340 IWAT128 :;CALL= THATIeS TRAP+32(104432) WAIT 128 MS 
034330 HAT :CALL=TWATIYY TRAP+33( 104433) WAIT 144 MS 
034320 WAT1S9 ; | CALL=TWATISS TRAP+34( 104434) WAIT 160 MS 
934310 IWATIS ::CALL=TWATIS TRAP+3S(10443S) WAIT FOR 1 
4300 IWAT2S :;CALL=TWATSS TRAP+35(104436) WAIT FOR 2 
03426 IWATSS ::CALL=TWATSS -TRAP+37(104437) WAIT FOR 8 
03427 IWAT1M ;;CALL=TWATIM TRAP+4O( 104440) WAIT FOR 1 
doc io2 $TERM=. -§TRPAD 
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ZREKC.P11 O1-OCT-7E DATA PATT : 
11959 TTL DATA PATTERNS 
11860 TA pabteen 1 

11861 PATTERN IS ALL ZEROS 
tises ,DATA PATTER 

11864 S Eres. MIX 
11865 o4scee bato2: 

11866 O4S&62 177777 177777 

11867 664 177777 177777 

11868 6& 177777 177777 

11869 70 OS2525 oS2525 

11870 O4S672 O52525 052525 

11871 O45674 952525 os2525 

11872 045676 177777 177777 

11873 045700 17 1? 

11874 o46702 oS2ses5 

11875 O45704 O52525 oS2525 

tes pieac8 : 2525 

11878 BuestS TS5se3 177252 

11879 045714 177255 17725e 

11880 O4S716 172765 172765 

11881 045720 172765 72765 

11883 ;DATA PATERN 3 

11 HI FREQ. PHASE MIX 
11885 045722 bato3: 

11886 o45722 oo0000 

11887 oO45724 900000 000000 

11888 045726 900000 090000 

11889 045730 177777 1 

11890 045732 177777 l 

11891 O45 177777 177 

11892 045736 o090000 oo0000 

11893 045740 900 090000 

11894 O4S5742 1 177777 

1189S 045744 177777 177 

11896 O45746 00000 oo0000 

11897 177777 177777 

11898 045752 O00000 oo09000 

118 045754 177777 177777 

11900 O4575& Ooo000 000 

11901 045760 177777 177777 

11903 ;DATA PATTERN 4 

11904 LO FREQ. PHASE MIX 
11905 7 batou: 

11906 O4S7E2 oSese5 052525 

11907 045764 052525 052525 

11908 O4S766 952525 052525 

11909 045770 125252 125252 

11910 045772 125252 125252 

1191] O4E774 125259 125252 

11912 045776 OS52525 052525 

11913 O46000 O52525 052525 

11914 O46002 i2S252 125252 


SEG 0218 
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nOREKC. Pi 01-OCT-76 1 er DATA bF ee NS 
11915 O46004 125252 125252 
11916 O4600E O52S25 052525 
He O¥6010 nes 125252 
11818 4 2g 1 
11 E016 bez os2s25 
11921 125252 125252 
11358 DATA PATTERN 
11 : MAX BRE COMP. PHASE MIX 
11925 o4so22 PATOS: 
11926 O46022 133333 133333 
11927 O46024 O&E6E6 O&6666 
11928 O46026 155555 1SSSS5 
11 046030 155555 155555 
11930 O46032 133333 133333 
11931 34 O66 066656 
11932 046036 & O&E6E5 
11933 O46040 isssss 1sSSSS 
11934 O4po42 155555 155555 
1193S 33333 133332 
11936 O46046 133333 133333 
11937 3 133333 
11938 O46 133332 133333 
11939 46054 133233 133333 
11940 O46056 133333 133333 
11941 133233 133333 
11942 
11943 ;DATA PATTERN & 
11944 : ROTATING BOUNDARY PULSE PRECOMP. 
11945 PATO: 
11946 062 121105 121105 
11947 O46064 150442 150442 
11948 O46066 O&4e221 Ob4e21 
11949 046070 132110 132110 
11950 oO46072 oOss044 oss04 
11951 026422 026422 
11952 O46076 O13211 013211 
11953 O46100 105504 105504 
11954 046102 O42642 o42642 
11955 O46104 O213e1 021321 
11956 O46106 110550 110550 
11957 O46110 44264 044264 
11958 O46lie 32 022132 
11959 46114 O11055 011055 
11960 O46116 104426 104426 

| 11961 046120 O42213 042213 

| 11963 :DATA PATTERN 7 

| 1136s : FIELD OF ALL ONES 

| 11966 :DATA PATTERN 10 

11967 : ROTATING CELL PULSE PRECOMP. 

 «~LIS68 o4e122 PATIO; 

| 11969 O46122 oee4ss 026455 

| 41970 O46124 113226 113226 
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PATTERNS 
045513 





;DATA PATTERN 11 
SHIFTED 1 IN A FIELD OF ZEROS 


100000 


:DATA PATTERN 12 
SHIFTED 0 IN A FIELD OF ONES - 
batie: 


077777 
;DATA PATTERN 13 
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DIRSKC.P1L © Gl-OcT-76 13:08 DATA Pa TERNS 
12027 . ALTERNATING O-1 
120 baTia: 

} sess - OS2525 
1 - 052525 
12031 053525 952525 
12032 052526 062525 
12033 72 082525 0S2525 
} 962525 
le 27% 052625 
1 052535 
lees? O46302 952525 052525 
i238 046306 pesese besese 
12041 ia pesese 32252 
LE042 O46314 063536 0625265 
12043 OM631—b 052526 052525 
teoss O46320 052525 052525 
iets :DATA PAT 14 
Led47 . ALTERNATING 1-0 
12048 046322 barTi4: 

12048 O46322 125252 125252 
12050 O46304 12556 le5e52 
12051 O46326 125262 losese 
12052 46330 125252 lese5e 
12083 O4633¢ le5e5¢ lesebe 
iSee Suesse | iSeSes 152525 
12056 O46340 125252 125252 
120s? O46342 l2s252 125252 
12058 O46344 125252 125252 
12059 O46346 125252 125252 
12060 O46350 126255 125252 
12061 Deze lesese 125252 
12062 364 125252 125252 
12063 46356 125252 125252 
12064 O46360 1} 125252 
tESe DATA PATTERN 15 
12067 : See TINE ZEROS AND ONES 
12068 O4€262 Paris: 

12063 O4E3be 009001 909001 
a Suesee Goaan7 55000 
1076 17 900017 
12074 046274 Spose> een 
{5o7e SuEeGs pooar? ne 
{Sopa Sucupa ee 
12078 1777 1777 
12078 O46406 003777 003777 
12080 O46410 007777 007777 
12081 O46412 617777 017777 
12082 O46414 037777 037777 
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077777 
177777 


sDATA PATTERN ig 
COMPOSITE ROTATING 
bari: 


072307 
135143 
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OCT-"6 13:08 FIELDS AND VARIABLES FOR Beenation CHECKING 
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12198 a .SBTTL rEdEhoS AND VARIABLES FOR Rosy itt CHECKING ie 
eee 75388 xedERE  T3tsoabo eet ERROR Bite 
1210 DLT, WCE, NED. NEM 
12110 ;PGE 
| Jeli 000070 DSERBIT=70 =DS ERROR BITS 
| ieile . . :SPOLSS, OROT, ACLO 
teils O46462 . 050000 ¥PWC: .WORD 0 sEXPECTED WORD COUNT (GIVEN) 
tells O46464 900000 EXPUBA: .WORD O :EXPECTED UPPER BA (COMPUTED) 
12116 O46466 900000 EXPBA: .WORD 0 :EXPECTED BUS ADDRESS (COMPUTED) 
| e117 O4e470 990000 EXPCYL: .WORD 0 :EXPECTED CY R (COMPUTED) 
, Lelie OM€47e 300050 EXPSEC: -WORD 0 !EXPECTED SECTOR (COMPUTED) 
e123 O4E474 EXPTRK: .WORD 9 ‘EXPECTED TRACK (COMPUTED) 
e 
lelel O46476 900000 REALWC: .WORD 0 sWORD COUNT AT END OF OPERATION 
lelee O46500 900000 REALUB: .WORD 0 "REAL UPPER BA 
| 42123 O4e50e 900000 ALBA: .WORD "BUS ADDRES 
l2le4 O46504 900000 REALCY: .WORD 0 : CYLINDER 
leles 046506 900000 REALTRK:.WORD 0 : TRACK 
gies O46510 900000 REALSEC:.WORD 0 : SECTOR 
leles o46512 000000 GRPLER: .WORD 0 :GROUP 1 ERROR FIELDS 
_ deles 000001 RR=BITO : CONTROLLER DETECTED DRIVE BUS PARITY ERR 
| 1el30 p0000e2 SKIERR= BIT] INCOMPLETE 
| 1e13i 500004 NXFERR= BIT2 NON-EXECUTABLE DRIVE FUNCTION 
| Je132 900010 DRPARERR=BIT3 :NONE DETECTED DRIVE BUS PARITY ERROR 
12133 006029 FMTERR= SITY :FORMAT ERROR 
12134 900040 DTYERR= BITS :DRIVE TYPE ERROR 
sii 906100 ACLOERR=BITE :AC LOW ERROR 
 «‘4deiz SPOERR= BIT? :SPEED LOSS £ 
mee DROTERR=81T8 ‘DRIVE OFF TRACK ERROR 
“12138 001000 COERR= BITS :CYLINDER OVER FLOW ERROR 
“12136 000 IDAERR= BITIO ‘ILLEGAL DISK ADDRESS ERROR 
12140 904000 WLERR= BITI1 :WRITE LOCK ER 
12141 010090 DTERR= BITle !DRIVE TIMING ERROR 
1el4e2 620000 NCERWE= BITI3 'NO CERR WITH ERROR SET ERROR 
meer 040000 SERR= BITI4 :DRIVE UNSAFE ERROR 
seis 100000 CERNER= BITIS :CERR BUT NO ERROR SET ERROR 
| ITE146 oO46514 900000 GRPZER: .WORD 0 ;GROUP 2 ERROR FIELD 
12147 900991 ECHERR= BITO ECC HARD ERROR 
etc] 099002 OCKERR= BIT1 :DATA E 
12148 WCKERR= BITS WRITE CHECK ERROR 
12150 909019 DLTERR= BITS :DATA LATE ERROR 
12151 OPIERR= BITS : OPERATION INCOMPLETE ERROR 
| 1182 000040 : HVRCERR=81TS :HEADER VRC ERROR 
eiés 600100 BSERR= SIT6 "BAD SECTOR ERROR 
12155 O46E1E 900000 GRP3ER: .WORD. O GROUP 3 ERROR FIELD 
1eisé 000001 NEDERR= BITO t NON-EXISTANT DRIVE ERROR 
12157 oo009e CTOERR= BIT! : CONTROLLER TIME OUT ERROR 
leite 600004 UFERR= BIT2 :UNIT FIELD ERR 
12159 00001 MOSERR= BITS ;MUL TIPLE DRIVE SELECT ERROR 
| Je166 PGERR= BIT4 "PROGRAMMING ERROR 
|. Pelel 000040 NEMERR= BITS !NON-EXISTANT MEMORY ERROR 
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RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC 
01-OCT-76 13:08 


090106 


Be 27‘ 1006) 


GREYER: 


GREANS: WORD EM10 
Wl M11A 
"WORD EMI 
‘WORD = EMI2 
oW M13 
M14 
GRP3MS: .WORD EMIS 
“WORD EMIE 
-WORD EMI? 
"WORD = EMIB 
"WORD EMIS 
"WORD EMO 
"WORD EME] 
"WORD = EM22 
GRP2MS: .WORD EM23 
"WORD = EME4 
“WORD = EMeS 
“WORD MEE 
“WORD EMO? 
“WORD EME 
"WORD M29 
GRPIMS: .WORD EM30 
"WORD © EM31 
“WORD © EM3e 
"WORD = EM33 
“WORD EM34 
“WORD = EMSS 
“WORD M36 
“WORD M37 
“WORD = EM38 
"WORD  EM39 
: EMO 
“WORD EYL 
“WORD = EMME 
“WORD = EMYS 
“WORD -EMY4 
EMYS 
GPSUMF: Wd 0 
GRPiST= BITO 
GRP2ST= BIT! 
38T= BITe 


UPERR= BIT6 
ILFERR= BIT7 


WORD QO 
WCERR: BITO 


SECERR: BITS 


0S-0CT-76 PAGE 224 
FIELDS AND VARIABLES FOR SpERAtION CHECKING 


UNIBUS PARITY ERROR 
STALESAL FUNCTION ERROR. 


;GROUP 4 ERROR FIELD 


;BUS AD S ERROR ps, 
;CYL ADORESS ERROR FLAG 
TRACK ADDRESS ERROR FLAG 
:SECTOR ADDRESS ERROR FLAG 


; GROUP Pex SUMMARY FLAGS 
;GROUP 1 ERROR SET 
:GROUP 2 ERROR SET 
;GROUP 3 ERROR SET 


rt a 


? 
Bh 
2 ZR 

Re 


FPRE 

+ b-- (Te 

Hap tet 
Age 
oret AY 
—e- =e 


8 
2 22 
if 


~ 
iat] 


2 BR 
Ber 
ef 


2 


See 2 
8 


EEE ——— 


Re 
— 


ER DIAGNOSTIC 
3:08 


042524 
042504 


GROUP 1 ERROR NOT RECEIVED 

; GROUP ERROR NOT RECELY 

Ee N GETTI iV STAT S FLAG 
PORTING NOT NG Oey atten Cn 


TEES TRMESGRNTAL Nc SESH CEBGAT SEW leer, 


; ADDRESS OF cata 
DRIVE CLEAR 
UNL 
START SPINOLE 
RECALIBRATE 
OFFSET 
SEEK 
READ DATA 
WRITE DATA 
READ HEADER 
WRITE HEADER 
WRITE CHECK 
ILLEGAL OPERATION 33 
37 


Oe Oe Oe Ol ee 8 OF et Oe et et Ce eta ee ee 


macys 27( 1006) OS-OCT-7& 09:17 PAGE 225 
FIELDS AND VARIABLES FOR OPERATION CHECKING 

GPINR= BIT3 

GPeNR= iT 

SRereRe BITTY 

REPNR= Biri T15 
.SBTTL CF OPERATION ME 
:* 
% 
CMNDLB: .WORD ROO 

.WORD  OPERO2 

WORD QPEROS 

“ORD SPER 

WORD QPERIE 

“ORD CPERI6 

.WORD  OPER2O 

-WORD  OPERE2 

.WORD  OPERSY 

WORD R26 

WORD R30 

.WORD  OPER32 

.WORD OPER34 

.WORD  OPER36 
.SBTTL OPERATION MESSAGES 
OPERGO: .ASCIZ /DRIVE SELECT/ 
OPERG2: .ASCIZ /PACK ACK/ 
OPEROY: .ASCIZ /DRIVE CLEARY 
OPERO&: .ASCIZ /UNLOAD/ 
OPERIO: .ASCIZ /START SPINDLE/ 
OPER12: .ASCIZ /RECALIBRATE/ 
OPERI4: .ASCIZ /OFFSET/ 
OPERI6: .ASCIZ /SEEK/ 
OPER20: .ASCIZ /READ DATA/ 
OPER22: .ASCIZ /WRITE DATA 
OPERG4: .ASCIZ /READ HEADERS/ 
OPER2E: .ASCIZ /WRITE HEADERS’ 


ee eee ee Cee 


Sidi 


Ce 


S22 2R29 
Rees 


8 
- 
o 


Fe, Se genet 


042524 
045503 


MACY! 
OPERA 


OPERS2: 


OPERS4: 


OPERSE: 


OPER37: 


R40: 
R41: 


OPER42: 


OPER43: 


OPERY4: 


G02 
BP TO aa 09:17 PAGE 226 


OPERSO: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


SEQ 0226 
/WRITE CHECK / 


“ILLEGAL FUNCTION 33/ 


“ILLEGAL FUNCTION 35/ 


“ILLEGAL FUNCTION 37/ 


/WRITE DATA ABORTED WITH BSE/ 


/WRITE CHECK ABORTED WITH WCE/ 


/WRITE DATA ABORTED WITH NON-EXISTANT MEMORY/ 


/READ DATA ABORTED WITH NON-EXISTANT MEMORY - 


/WRITE DATA ABORTED WITH UNIGUS PARITY ERROR’ 
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ASCIT MESSAGES 


-SBTTL ASCII MESSAGES 
SPACEe: .ASCIZ / 
OPROO!: .ASCIZ <15><12>/RKE1i BUS ADDRESS ¢ 


OPROGe: .ASCIZ 4 1 = ¥ 
OPROO3: .ASCIZ /RKB11 VECTOR ADDRESS ( / 


OPROO4Y: .ASCIZ /RKELL PRIORITY ( / 


OPROOS: .ASCIZ ‘INSUFFICIENT MEMORY. PROGRAM ABORTING. /<15><le> 


OPROOS: .ASCII <15><12>/T0 BYPASS TESTING ORIVE 0, PLACE IT OFF-LINE/ 


-ASCIZ <15><12)/TO TEST ORIVE 0, REPLACE PROGRAM PACK WITH SCRATCH PACK’ 


OPROO7: .ASCIZ <15><12>/ORIVE O WILL NOT SE TESTED. START AT 214 TO TEST DR i” 


OPROOS: .ASCIZ 615) «12> “NO DRIVES AVAILABLE FOR TESTING. PROGRAM ABORTED/ 





RKE1] FUNCTIONAL CONTROLLER DIAGNOSTIC 

DZREKC.F11 01-OCT-76 13:08 
1 O46 1 c 
ie ies reat ees Bet 
b| ige lil 71 OSS040 
12384 050170 O47Se2 051107 046501 
‘cae pea 7e ote 047502 OSelee 
13355 OS: Ae osebis 042510 
12388 050214 O43040 046117 047514 
12389 OS0ee2 O44S27 043516 O04 
1 050230 ess 042526 020123 
12391 050236 046114 041040 
le232 050244 020105 04 052123 
123393 OS0eS2 O4210S 005015 000 
12384 050eS7 015 O8%70le G20117 
12395 0502064 o40S20 O44S22 054524 
123 047440 1 047511 
le 026516 1 041111 
12398 051525 051101 
12399 050314 052111 020131 051105 
12400 OS50322 O47Se2 Oe0l2e 047101 
ie iSieee 00eS04 ple 47D 
i osinah Gaisee bazeo4 
12404 OS0346 Oe0i22 047506 O4éSee2 
1e40S 950354 052101 O42040 052101 
124068 050362 020101 043130 051105 
1e407 050370 052040 pol eos 124 
12408 050376 0545 0520 1523 
12403 OS0404% O42] 005015 000 
12410 OS0411 01S O%641le O46505 
le411 OSO0416 051117 020131 44523 
le4ie OS04e4 O04 047040 052117 
le413 OS0432 051101 042507 
12414 OS044O O4e44O 047516 043525 
1e41S OS0446 020110 047506 OeDlee 
le4igé OS04S4 OSeS0e 020123 O42101 
1e4i7 OS046e 051104 O5150S Oe0le3 
le4ig 050470 o44S02 051504 030440 
12419 OS0476 O2006& C2004 033461 
le4e0 050504 OS52040 051505 061524 
le4¥el 050512 005015 
le4tee 050514 046101 020114 O40504 
le423 O050Se2 04 OSYO4O + O42506 
le424 050530 0201 04 0S2123 
le4eS 050536 Oe0le3s O445e7 044124 
le426 OS50544 C440 042104 Ole2 
le4e7 OS05S2 
leyes O0S0554 l 000113 
le4e3 050560 000113 
1e430 OS0564 033071 000113 
12431 050570 O41040 050131 051501 
124 050576 pieate 006504 O000ie 
124 OSC604 15 QO20012 Oe0040 
12434 050612 Oe0040 Oe0040 Oe50Se 
e435 050620 Oe00Se O40S03 052125 
12436 047511 020116 Oe505e 





MACY33 27(1006 
ASCIZ MESSAGES 
OPROOS: .ASCIZ 
OPROIO: .ASCII 

-ASCIZ 
OPROI1: .ASCII 

-ASCIZ 
PROL ASCIZ 
OPRO13: .ASCIZ 
OPRO14: .ASCIZ 
OPROIS: .ASCIZ 
OPRO1E: .ASCII 
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¢15><12>/THE FOLLOWING DRIVES WILL SE TESTED/<15>< 12> 


(15><12>/NO PARITY OPTION-UNIBUS PARITY ERROR AND/<15>< 12> 


724(8) SECTOR FORMAT DATA XFER TEST BYPASSED/<15><12> 


<15><12>/MEMORY SIZE NOT LARGE ENOUGH FOR BUS ADDRESS BITS 16 & 17 TESTS 


/ALL DATA XFER TESTS WITH ADDR >/ 


/32K/ 
/B4K/ 


/WK/ 
/ BYPASSED/<15>< 12> 


(15><12><12>7 *#% CAUTION #2#/¢15><12><12> 
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DZREKC.P11 01-OCT-76 13:08 
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b+ 0 b= 2 2 A + + 0 oO - 2 + 8 0 2 = 2 0 bb 2 2 b+ be 0 bp bs ee 
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ASCIT 


MESSAGES 


-ASCIT 


«ASCII 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCII 


-ASCIT 


OS-OCT-76 09:17 PAGE 229 SEG 0229 


/THIS PROGRAM SHOULD BE HALTED BY TYPING tC./<15><le) 


/IF HALTED USING THE HALT KEY, THE STATE OF THE ORIVE/<15><« 12> 


/OR CARTRIDGE CANNOT BE PREDICTED. 7<15><«12>< 12> 


/ALL DRIVES TO BE TESTED MUST BE ON-LINE, “<15>< 12> 


/READY, AND WRITE LOCK RESET. 7<15><1l2> 


“ANY DRIVE NOT TO BE TESTED MUST BE OFF-LINE. /<15><12><l2> 


/NOTE: 2@ND AND SUBSEQUENT PASS RUN TIME IS/<15><12> 





FUNCTI ONAL SRUTROLLER BIAGNOSTIC 
o40 o20040 
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: .ASCIT 


ERORE 


FISREE 
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APPROX 7 MINUTES FOR EACH DRIVE.7<15)<12> 


<15><12>/FIRST 2S& SECTORS NOT BSE ERROR FREE. / 


/MAXIMUM DATA TRANSFER TEST BYPASSED/<15><12> 


/<15><12>/0NLY 1 DRIVE. OVERLAPPED OPERATIONS BYPASSED’<15>< 12> 


€15><12>@SCOPE: CHI (TRIG), 


ES3-8; CH2, EY9-2 (AC CO 


¢15><12>/ADJUST R72 FOR CONSTANT LEVEL ON CHe/<15><12> 


«15><12>/PROGRAM HALT PENDING - CARTRIDGE FORMAT BEING CORRECTED/<15><1l2 
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ASCII MESSAGES 


OPRO21: .ASCIZ /###*#* PROGRAM HALTED *#%##/<(15><12> 


OPROZ2: .ASCIZ /CARTRIDGE FORMAT CORRECTION FAILED/<1S>< 12> 


ABORT: .ASCIZ <15><12>/PROGRAM ABORTING BECAUSE ERROR THRESHOLD EXCEEDED/<15><12> 


.SBTTL ERROR MESSAGES 
EM1: -ASCIZ /FATAL-NON EXISTANT MEMORY AT RK&11 BASE ADDRESS” 


EMe: -ASCIZ /FATAL-WRITE READY AND IE DID NOT CAUSE INTERRUPT/ 
EM3: -ASCIZ /FATAL-PARITY ERROR TRAP. PC AT ERROR = / 
EM4: -ASCIZ /EXPECTED INTERRUPT DID NOT OCCUR OR WAS LATE. COMMAND WAS: / 
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ERROR MESSAGES 


EMS: 


EME: 


EM?: 


EM10: 


EM11: 


EM1I1A: 


EMle: 


EM13: 


EM14: 


EM1S: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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/SUBSYSTEM CLEAR DID NOT RESET ERROR/ 


/SUBSYSTEM CLEAR DID NOT RESET DEVICE INTERRUPT/ 


“SUBSYSTEM CLEAR DID NOT SET READY/ 


/WORD COUNT INCORRECT/ 


/BUS ADDRESS INCORRECT’ 


“UPPER BUS ADDRESS BITS INCORRECT (BAl16, 17)/ 


/CYLINDER ADDRESS INCORRECT/ 


“TRACK ADDRESS INCORRECT/ 


“SECTOR ADDRESS INCORRECT. / 


/NON-EXISTANT DRIVE’ 
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EMIE: 


EM17: 


EM18: 


EM19: 


EMe20: 


EM21: 


EM2e2: 


EM23: 
EMe4: 


EM2eS: 
EMe6: 
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EM28: 
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EM30: 


EM31: 


-RSCIZ 
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-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
«ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 
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“CONTROLLER TIMEOUT/ 


/UNIT FIELD ERROR/ 


/MULIPLE DRIVE SELECT/ 


“PROGRAMMING ERROR/ 


/NON-EXISTANT MEMORY/ 


/UNIBUS PARITY ERROR/ 


ILLEGAL FUNCTION/ 


“ECC HARD/ 

“DATA CHECK/ 

/WRITE CHECK/ 

/DATA LATE/ 
/OPERATION INCOMPLETE/ 


“HEADER VRC/ 
/BAD SECTOR ERROR/ 


“CONTROLLER DETECTED DRIVE BUS PARITY ERROR/ 


/SEEK INCOMPLETE/ 
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FUNC TIONAL CONTROLLER ep 
Pil 01-OCT-76 13:08 
OS4764 O44124 OS1511 
oSs4 piioee pisrss 
ese4 0521 
ts Bassey Sonos 
055020 Rises 046440 
S026 31 Q40S0 
OS "3 
] 9S 2040 
Os50S0 O44524 O43516 
OSS0SE 047502 OSel2e 
OS50645 O47440 Oe0llé 
055072 051511 O4e040 
055100 O#2eS26 000 
055103 110 940505 
055110 Oedlee 047527 
OSS11& O4644O 051511 
O0SS51e4% 050115 051101 
OSSl3s2 040504 O40Se4 
OSSi40 051117 020104 
OSS14E O41523 O4E517 
OSS5154 O42Se2 000 
055157 193 047101 
OSSiE64 O20124 44506 
055172 O4404O oO4o0S05 
OSS5200 O20l22 020060 
055208 051040 d40505 
055214 047101 O20104 
OSSee2e OSelee O44040 
055230 42504 051522 
055250 000104 
OSSe52 O4eSe3 042514 
OSS5260 O53440 052111 
OSSeS ~OY751E OeéS1E 
OSS274 O47S22 051440 
0s5302 020123 
O0S5310 OS1111 000 
OSS313 le? O44S22 
OSS320 O43S16 041440 
OSS326 040515 O4el1E 
055334 O04 
OSS342 04, 044507 
OSS250 051105 031040 
053751 
oss3ss 104 O44S22 
OSS3be O44440 OS2116 
055370 OSeSe2 052120 
OS3666 
0S5375 104 O44S22 
oss OS1440 040524 
OS5410 020123 O44103 
OSS41E 042507 000 
055421 104 044522 


EMS:  .ASCIZ 


EmS4: .ASCIZ 
EMSS: .ASCIZ 
EMS6: .ASCIZ 
EMSVAL: .ASCIZ 
EMNZPR: .ASCIZ 
EMWCSe: .ASCIZ 
EMOTPE= EM3S 

EMDI: .ASCIZ 
EMDPAR= EM33 

EMOSC: .ASCIZ 


EMOA:  .ASCIZ 
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TO MANY BAD SECTORS. TESTING ABORTED ON THIS DRIVE, 


/HEADER WORD MISCOMPARE / 


/DATA WORD MISCOMPARE / 


/CANNOT FIND HEADER O IN READ AND SORT HEADERS / 


/STATUS VALID- 


/SELECT WITH NON-ZERO STATUS PRIR/ 


“WRITING COMMAND STATUS REGISTER 2/ 


-DRIVE TYPE ERROR 
/ORIVE INTERRUPT / 


-ORIVE DETECTED DRIVE BUS PARITY ERROR 
/DRIVE STATUS CHANGE/ 


DRIVE ATTENTION/ 


RKE11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(1006) OS-OCT-76 09:17 PAGE 237 SEG 0237 
DZREKC.P 11 01-OCT-76 13:08 ERROR MESSAGES : 


ge a BE We 


7117 051124 EMCCLR: .ASCIZ /CONTROLLER CLEARY 


oe et Ree ee EMSELD= OPEROO DRIVE SELECT 
ie) see EMRCALS SPERIZ PE CAL GRATE 
ies ossuge pisces 047503 O42116 EMZINT: pets /SECOND INTERRUPT/ 
ee a: 

1 3 QHeSOS 920113 EMSKSF: .ASCIZ /SEEK TO SELF/ 

isss? i re osig4d 461 

i5égg OSS 7010 EMSK=  OPERIE . SEEK 
12x00 osss20 047125 054105 oyeszo EMUXIT: .ASCIZ /UNEXPECTED INTERRUPT/ 
iSeqs esa pestce Beste Bese: ; 

12903 655542 052120 000 

12904 O55s45 125 O44S1G OS2502 EMUR: .ASCIZ /UNIBUS RESET’ 

1290S 055552 020123 ONeS22 O4eSe3 


pat 
Aa 
fe 
i 
He 


if 
8 
2 


MRSET: .ASCIZ /RESET/ 
EuoL T= EMcE ;DATA LATE 


2S 
222 2 2 
x 


12908 955570 4 2101 O47111 EMROB: .ASCIZ /READING DATA BUFFER 
ee 

12913 055614 04 OS2116 O47S22 EMCERR: .ASCIZ /CONTROLLER ERROR/ 

iSeic Beeess beiiss perits CMAs 

12616 35 123 O41125 os4S23 EMSCLR: .ASCIZ /SUBSYSTEM CLEAR/ 

12917 OS5642 os2153 O46505 041540 

i218 OS56S0 042514 051101 000 ! 

12919 OS5655 115 O46125 O44S24 EMMI: .ASCIZ /MULTIPLE INTERRUPTS/ 

12920 O55662 046120 b20105 O47111 

ese] 55670 pueoe Os 1ice 050125 

i5e55 055701 102 O42101 OS1440 DRVABT: .ASCII “BAD SECTORS ON PACK IN AREAS USED BY TEST (CYL 312(8))/«15><12> 
12924 OS5706 o41505 947524 OS1Se2 
12925 055714 O47440 Oe01l6 O405e0 

12926 055722 O4SS03 O44440 d20116 

12927 055730 051101 O40S0S::02°0123 

12928 055736 051525 O42105 “O41040 

12929 055744 020131 O4 052123 

l 055752 Oe 05 020114 

12931 055760 O30463 Oe4de2 024470 

12932 O55766 O0645! Ole 
12933 055771 124 OS1505 o44se4 .ASCIZ /TESTING ABORTED ON THIS DRIVE’ 
12934 055776 o43Sie O40440 047502 

12935 OSE004 OS2122 O4e10S 947440 

12936 OS60l2 O20lig O44124 051511 

12937 056020 O42040 Ou4Sce O4e52E 

12338 OSé026 000 


12940 -SBTTL DATA HEADERS FOR ERROR REPORTS 
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DATA HEADERS FOR ERROR REPORTS 


‘TST NUM ERR PC 


/TST NUM ERR PC 


RKASOF RKDOCYL RKDA/ 


RKASOF RKMR1/ 


/THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: / 


“THE ABOVE ARE UNEXPECTED ERRORS SET IN OPERATION: / 
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DATA HEADERS FOR ERROR REPORTS 


DHOC?: 


DHOOSA: 


DHO10: 


DHO14: 


DHO1S: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


: .ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/THE ABOVE ARE ERRORS SET IN OPERATION: / 


7ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID/ 


ZERROR AT COMPLETION OF OPERATION’ 


/EXPTD = IS/ 
/READ DATA WITH FORCED CYLINDER OVERFLOW/ 


/NOT SET AS A RESULT OF/ 


/NOT RESET AS A RESULT OF/ 


/SET AS A RESULT OF / 


“RESET AS A RESULT OF / 


/GO0OD BAD WORD NUM/ 
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DHO17: 


DHO18: 


.SBTTL DATA TABLES FOR ERROR REPORTS 


MACY11 27( 1006) 
DATA HEADERS FOR ERROR REPORTS 


-ASCIZ 


-ASCIZ /SELECT AFTER RECAL/ 


-ASCIZ 


* WORD 
“SBTTL DATA FORMATS FOR ERROR REPORTS 
OFOO1: .WORD 1 


EVE 

DTO03: .WORD 

DT001: .WORD 

OTO0e: 

DTOO4: 

DTO0S: 

DTOOE: 

DT007: 

DT010: .WORD 
. WORD 
WORD 
WORD 
WORD 

OTO1S: .WORD 

DTO1SA: 
“BYTE 

DFOO2: .WORD 
BYTE 
. WORD 
BYTE 
. WORD 
.BYTE 
. WORD 
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/SUBSYSTEM CLEAR TO RESET SEEK LIMIT ALLOWING HEADS TO RELOAD’ 


/RECAL COMPLETE ATTN AFTER SELECT/ 


STESTN, SERRPC,ORVNUM, T.CS1,7.CS2,7.D0S,T.E8, 7. ASOF,T.MRI 


STESTN, SERRPC , DRVNUM 


$TESTN SERRPC , DRVNUM 
T.C51, f.CSe2, T:DS, T.ER, T.ASOF 


:o y.Oe vt a 
sREGIO, $REG11, $REG12, $REG13, SREGIY, SREGIS, SREGIE, $REG17 


- 


STESTN, SERRPC , ORVNUM 
SREGIO: SREG11° SREGL2 


3,0 
0,0 
DAOOZA 
ame 
pHOD2C 
2,0 





ee a ee ee ee ee 


ee OOOO ee - 
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DZREKC.P11 01-OCT-76 13:08 DATA 


DFOO3: 


DF O04: 


DFOOYA: . 


DF OOS: 


DFOOSA: [WORD 


DFOOE: 


DFOOGA: . 


DFO07: 


DFOO7A: ; 


DFO1O: 


103 
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FORMATS FOR ERROR REPORTS 
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DZREKC.P11 01-OCT-76 DATA FORMATS FOR ERROR REPORTS 


| 13165 ocoooo DFOIOA: .WORD 
13186 057664 909 000 .BYTE 0,0 
13167 : ose0ss al ae phoo2A 
iis Rese ose ey WO 848100 
13176 ob2 900 BYTE 2,0 
131 OFO11: .WO 4 
1317 pec676 sae 000 “BYTE 0,0 
13174 057702 oo0000 DFOLIA: :WORD OO 
13175 057704 900 coo “BYTE 0,0 
13176 057706 oséDds5 “WORD  DHOO2A 
13177 057710 003 000 “BYTE 3,0 
13178 OS7712 OS6301 WORD  DH0038 
13173 057714 30006 so0000 WORD 6,0 
13182 Sy OS Co hte oe 
13183 057724 os7144 “WORD  DAOIS 
13184 0032 000 “BYTE 3,0 
13186 057730 000001 DFOls: .WORD 1 

| 13187 057732 003 000 BYTE 3,0 

| $3189 957734 oo0gSe 8S26: .BLKW Se 

| 13190 o0005S2 BSe4: .BLKW 5 

| 13181 060204 900200 PATCH: .BLKW 
13192 069604 90010990 IBUFF: .BLKW 1000 

| 13193 062604 901900 BLKW 1000 

| 13198 90000; 

| 

| 


SEG C242 


a So 


RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY1i 27/1006) 
DZREKC.P11 01 7& 13:08 CROS 4 
ABASE = 177440 19568 2278 22193 
RBORT O052130 S449 =—s «125648 
RETFAI O4270S S244 §=111708 
ACDW1 = 000000 2278 2321 
aCOWe = &ce 
ACLO = Sle 10266 
bere ] 10268 38121358 
aC OCO0000 e227 2293 
AODWO = 000000 2278 
ADDW1 = 000000 2278 
ios 000000 55a 
= te 
ge ns 
RODWi3= OO0000 2278 
ADDOW14= 000000 ec? 
RODWIS= 000000 2278 
ADDWe = 000000 2278 
ADOWS = 090000 2e7 
ADDWY = 000000 5278 
= 7 
x 2278 
= 000000 2278 
ADDWS = 000000 2278 
ADEVCT= 000000 2278 2284 
ADEVM = 000000 2278 ese 
ADJCLK 2 2185 110638 
RENVY = 2278 2283 
RENVM = 00 2278 2290 
AFATAL= 000000 2278 2281 
= 000000 2278 23 
= 000000 2278 2310 
AMADR3= 000000 78 2313 
AMADR4Y= 000000 2278 e3lé 
AMAMSi= 000000 2278 2300 
= 000000 2278 23 
AMAMS3= 000000 2278 2311 
AMAMS4= 000000 2278 2314 
= 000000 2278 ee 
AMSGLG= O00006 2278 2287 
AMSGTY= 000000 2278 2280 
AMTYP1= 000000 2278 2301 
AMTYP2= 000000 2278 2309 
AMTYP3= 000000 2278 e3le 
AMTYP4= 000000 2278 2315 
APASS = 000000 2278 2283 
APRIOR= 000240 19558 2278 
APTCSU= 000040 93028 11203 
APTENV= 000001 3258 93008  ## 9357 
APTSIZ= 000200 2775 923948 
APTSPO= 000100 9260 93018 11198 
= 000000 2278 2231 
ATESTN= 000000 e278 e282 
T29D 2278 2ces 
¢ = OO ee78 eeSe 
VECTi= 000210 19548 2278 2317 


REFE 


11196 


ENCE TELE = -" USE 


= venti oe: 


RK611 FUNCTIONAL CONTROLL 





DZREKC.P11 01-0CT-7 
AVECT2= 000000 
BAI = 
Bal& = 
pris = 
SRCK 
SITCNT 
BITO = 
ie : 
EtToe = 
BITO3 = 
BITO4 = 
BITOS = 
BITOS = 
BITO7 = 
BITOB = 
BITOS = 
Ho: 
T10 = 
BIT11 = 
BITle = 
BIT13 = 
BIT14 = 
BITIS = 
Bite = 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT& = 000100 
BIT7 = 000200 
BITé = oO0400 
BITS = 001000 
BPTVEC= 14 
s 00 
BSERPT= 000200 
RR = 000100 
BSFE4YP OO1E36 
BSFeEP OO1E4O 
SSo4P 9 O001b4e 
001644 
BS24 
BSex¥CT 001650 
6 057734 


13:0 


2278 
10069 


ER rents 


2318 
121688 


10826 
131908 
131898 
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7331 
5364 
5364 
190421 
e048 
8748 


74 
121538 
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19429 
e686 
8928 


7547 


10441 
3614 
9921 


7603 


19451 
3851 
12123 


449s 
12156 


4497 
12166 


4499 
12215 


12157 
15431 
9150 
10858 
9329 
4235 
4233 
12158 


12160 
12134 


2691 
2690 


2693 
8945 


4438 


S514 


SEG C244 


12216 


12140 
19900 


19850 
6670 
7047 

12217 


12219 
12161 


9864 
2800 
1763 
4493 


M03 
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COLR = 100000 200se 3426 3480 7890 9919 9937 
COT = 002000 200i8 
CERNER= 100000 10e0S = 121448 
cere = Med 20078 3023 30E2 4150 9925 9981 9985 10203 10278 
MT = 010000 Bay A 6389 6447 6462 6539 6590 6605 8272 $820 10120 i077 10803 
1S4 100348 10228 
CHKCTS Baesee 67 100968 10229 
OP 936706 101868 11842 
CHKST 036714 10184 101898 
CHKWC 386036122 100158 1 
CHKWE 036654 101778 11843 
CKSWR = 104407 9105 9318 9367 118328 
CLEAR = 000105 19818 3514 7523 7582 7656 7993 8097 8136 8257 8391 8826 884s 
CLKCAL 034146 95638 9658 
O46E36 9669 10e32 10524 le2ee8s 
COE. = 001000 2038s 
COERR = 001000 121388 
CR = 000015 18198 lle4e 11252 
= 00 1s208 2799 Iilel3 1llese 
CSIERB= 024000 10195 =121078 
¢ = 177400 10197 = 121088 
CTO. ~— = - 004000 20028 10317 
CTOERR= 000002 7697 «10319 «121578 
CTRHLT O4244e2 2915 es44 3091 110918 11438 11521 
CYLERR= 000010 10146 121698 
= 100000 2044s 10260 10288 
= 000002 7906 «610290 ) = «12148 
DDISP = 177570 16268 2225 2763 
DOT = OOO400 . 20S6% 
DESHLD 001666 27038 10843 10867* 10919% 11043 
DFOOl OS7472 e372 486130978 
0S7476 2387 §©131008 
3 057516 2398 131108 
DFOO4 OS 2479 = 131158 * 
OS 104S6 10467 131178 
DFOOS 0575 2493 131288 
DFOOSA 957562 10476 §=131308 
DFOO6 § 057612 S18 131438 
DFOOBA 057616 10434 10446 131458 
DFOO7 057636 S4H4 = 131544 
DFOO7A 057642 10408 131568 
DFO10 76 67 131638 * 
DFO10A 057662 RH aitke sS¥2e 6712% 6719% 7017% 7023 7034% 7040 7152% 7158% 7169%  717S% 
* % 
| DFO11 057676 2581 2590 2599 2607 131728 
DFO1iA 057702 31718 3254* 3270% 3305* 3316 3352% 3403* 3408* 3414e 3420% 3436% 442%  3459% 
S465* S471% 3477% 3499% 3505* 3531%  3537# 3665% 3680* 36987% 3704% 3733%  3745% 
3774% 3794 3801* 4146% 4153% 8550* 8616% 8686% 8703 8883  9888% 131748 
OFO15 77 2619 131818 
DFOl&G § 057730 ebe7 131868 
1 056927 2370 §=1e9418 
DHOOeR OS6055 2396 2617 12e94S*e 13102 13119 13132 13147 13158 13167 13176 
8 056103 129498 13104 J3lel 13134 13149 
DHOGeC 9056170 1e9588 13106 13le3 13136 13151 
DHO02D 056205 1e9618 13125 13138 


NO3 


SSS 
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DHOO3B 056301 129728 13112 13160 13178 
DHOOS 056357 10517 1e3808 
B 
Bode Beesea 18686" 16479 regers 
DHOO? 056536 10515  13000# 
DHO10 0566 2565 130168 
DHO1OA 055731 130228 13169 
DHO 108 130248 
DHOll 057014 2579 130318 
DHOL2 = 057042 2588 130358 
DHOL3 057074 2597 130408 
DHOi4 057117 2605 130448 
OHOIS §— 057144 130488 13183 
DHOLE §©057175 7795 130538 
DHOI? ~§©057272 g695 130648 
DHO18 = 057315 8703 13068% 
pen” = 901372 23858 (7795 s69S* 669% B46 9874s 
N 141 24778 10457 10468 
DHSN © O01 422 24918 10477 
DHEN 001432 25168 10435 10447 
DH7N §=- OD 442 25428 10403 | 
DI = 040000 200g 3405 «= 34394623502 = 3834 = «3730-s«3771:~«=Ss «3798 «= 8833.sseS2 (9981 
DISPLA OOLi42 eese =27b3e «e77i# = 3165* 9321 | 
DISPRE 000174 21668 2771 
DLT = 100000 20258 4143 10295 
DLTERR= 000010 10297 121508 : 
DMD = OO0O4O 20678 3567 3575 3614 3623 797 8049 8057 8157 8305 11074 
DRA = 000001 20488 ; 
DRDY = 000200 2055# 3036 3041 3064 8443 
DROT_ = OO0040 20538 10274 “ 
DROTER= 000400 8210 8344 10276 121378 
DRPAR = 000010 2032 
DRPARE= 000010 3387 121328 
DRSTER= 040000 10472 10478 10612 122218 
DRVABT 055701 4071 129238 é 
DRVBIT 001630 P6688 3115* 3175 3177%, 3982 4031 8470 su74x 8475 8477 8483x 
DRYMSK= 000007 20128 ee 
DRYNUM O01626 26678 3121" 3181* 3201 3241 3291 3308 3334 3378 9339 3556 3604 3654 
3720 3762 460 3826-3843) 3887 4869304362 390 B16 «Ss 7322 «= B44] «= B473e B44 
BbE}* Bo7a BegHe § BB14x §BBISe BESS BBEHx  BB7Ge 702 HES 1 '0bE 07713080 
psc = 40000 20598 (3166 3411 3468 3684 
DSERBI= 000070 10199 121118 
OSWR = 177570 18258 2224 2762 
OTE = 010000 20418 
DTERR = 010000 7978 «(121418 
OTYE = 000040 2034s 
DTYERR= 000040 121348 
OT001 057400 2371 130808 
DT00e  O5740 2386 130818 
OT003 05735 23397 130778 
DT004 057406 2478 = 130828 
OTO0S 057406 e492 130838 
DTO0E ~9 057406 2517 130848 
01007 057406 2543 13085 
OTO10 057406 ese0 2589 «= 2598 «= BEDE s«130868 
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pres pees 2566 ise 130348 
. ¢ ebet 
tet s 009003 ests 3011 3032 3043 3048 
ECCH = D20000 207ss 
CH = 000100 203Ss 10260 10284 
CHERR= peeca 7906 «410e86) =lel478 
AE Ts eek 
OSS4e1 sc5e 3438 isetie 3498 3530 gs49 8615 8882 i2864s 
I f é 
“OI FeEfe 34 cad 3464 3804 3836 3732 3773 3800 i2876és 
MOLT = 053442 4145 988 129068 
0S 3666 3403 3408 3414 3420 2459 3465 3471 3477 = 128798 
0S$375 3170 3413 3470 3686 4 i2880s 
TPES 053751 3352 128758 
I OSSéS5 3744 =: 129198 
OSSeSe 3e70 3499s 3S0S)=s 128638 
= O46765 3665 esses 
055570 4146 4153 129098 
OS556¢ 3801 8 
055635 171 BE1E 3=ieSlés 
046676 3eS4 3305 128908 
2 nn ee 
eevon Beaeae 3 04 3315 3381 3419 3476 3664 3679 3703 8685 8702 128608 
= in oe 
IT 3793 129008 
a Resste zais ‘cece , ; 
1 001 eikhe 515s S53 3980# ay ao aa" woe ste 4O71# 73338 74928 
10N 001450 este * * oes S4see =S4H44# 864514 Soin eee? 6709 6718% 70148 70228 
7031# 7039 7149 71578 7166 7174% 10239% 
iP chp a8 ae A ie ie J. 7031 7149 7166 «612175 s«126338 
1N 001460 eS768 4«3253# 892304 33518 340e# 3407# S413e S419# B4S8e B464e 8 S470e = N7Ee 86 S6b4E 
36864 3703 37328 3773% 868S* 8882s 
i. lel leb458 
1 1470 258 170% g# 3315* 3600# ess 
13 053071 414S# 6709 1el77 126508 
13N 901500 esses * 3793%  41Se# 
EM14 0S3123 6718 12178 le6sss 
EM14N 001510 es04s 3435+ 3S04# 
EMi§ 053153 1el80 4 1e6608 
EMISN 001520 ebliés 10756# 10759# 
1g 053176 12161 lebbus 
EMi7 =“ OS 3e21 igite 126688 
EMi6  OS3e4e 1e183 Ss Le6718 
EM19 OS 3&7 1e184 12675 
EMe OSee7é leSE38 
EMeINT OSS46e 3680 128938 
EMeN 001370 es84e 3673 9670#  984Ss 
| EMeO 8=—-_:« OS. 33911 1ei6S 126798 
EMe} 053335 lel8& = LebB3s 
EMee © 053361 12167 126878 
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Seana 
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+ 


: 


in 
a 


= 
OOOO ££ 

BOR 
Gn.oc’.o0 


SPER EU Ter CCRT Ys See EEREREEERER ERE 
Beat 







i_27( 1006) Baty: 9:17 PAGE 249 SES C248 
ENCE TABLE -- USER SYMBOLS 


3164# 3221+ 99678  9989# 10000 


4007 128168 


4744 482S 4894 4975 S044 S124 5195 5269 5340 S646 
5987 6046 6103 6161 6217 6273 6407 6482 6625 6750 


orcas 9033 9034 9038 9043# 9055* 9060# 9069% 9079% 9080s 
+ 


121178 





lell4s 
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DAE 
DAERR 
re 
ILFERR= 

NTHLR 033626 


INTR = 000200 
INTSET O0lE62 


gE: 
| « 
ft 
I 
I 


IOTVEC= 900020 
IR = 000100 
IWATIM § O34270 


£0 1 
elas = eSTi 
6485 &Sle 
6791 6823 
8448 107508 
$90Se 10473 
97398 11841 
216s 2798 
11835 11836 
11848 11849 
19968 
10194%# 10407 
1046S 10470 
10444 10518 
10424 10518 
10190# 1020S# 
10561 10592 
10454 10470 
10191* 10282 
10SSS 10586 
10432 10526 
101Se% 10311 
10S32 10581 
10415 10526 
670S# 6707 
10239 §=121738 
2793 =: 1118308 
1817@ llell 
20378 10260 
1030S 121S2e 
3% 1 4014 
5697 S716 
6299 6326 
0e9S9Ss« 131528 
20398 
3857 3865 
19978 2932 
Se 10260 
10343 lel6b38 
2879 
19928 
26978 * 
757 1% 4Qe 
B51S*  gSe3s 
9S34 9539% 
1Sle8 2744s 
e0lts 
$6158 11857 
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0S-0CT-76 


10609 
lee198 
10450 


10669 
lel4és8 


122168 
121558 


10069# 


4653 
5869 
6732 


7788 


5328 
730% 
8821% 
9659 
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WATIS le 11854 
tari? 834828 45 tie 
IWATI2 034340 86308 11851 
IWATI4 034330 78 11852 
IWATIS 034320 96248 11853 
TWAT Bat30 Q6Sie 11844 
WAT, 300 9618e 11855 
fwATse O34420 96482 11845 
TWATYB O34410 9645e 11846 
TWATEY O34400 96428 11847 
Sem 8 Bit 
WaT BY 96.368 HEIs 
KIPORDs 172340 i94Se 9019 9047 
= g 
KIPaRSS | ng 19478 
KIPAR3= 172346 19488 
KIPARY= 172350 19498 
KIPARES io53e5 10 10902 
= + 
KIPAR7= 172256 19528 9063 
KIPORD= 172200 19348 
KIPDRI= 172302 19358 
KIPORS= 172304 19368 
KIPORS= 172306 19378 
KIPDR4= 172310 19388 
KIPDRS= 172312 19398 
KIPDRE= 172314 19408 
KIPOR7= 172316 19418 
001676 27078 S492x 9530% 9818%  Se64* 110728 
KWLVEC 001700 27088 S27 
LCKHLR 033670 S458 
| LOLKPR= 100000 26948 9537 9564 %61 9816 9862 11070 
| LOLKTK 601660 26968 493782 3784 9491* 9563% $570 9S72e 9597% 9664  9834* 9840 
LF = 000012 18i8e 11246 11252 
L 6 8714@ 11840 
CRLOAD O34574 3988 4 ui22—iC4B19—'—i<«w?-s—i=S «SBPBO37H)=—s499H)SsRRSC?—ssBDSs«é#¥SSC 
4541 4567 4é0e 3 ueSO 0 ss469™—«<‘<i‘ék7IO; «€©4N7830«osB8O?)=—ss4gSBSsid7S) 937 )—s«SES 
s0e3«(S083~—Cté«é*SS‘ZL‘ cis? «S174 ~=s«sS2l9—té—i‘é‘“S23BHCséié‘sS2@SH~=C*é«‘*SSBLS>—(iéi‘“SEG:«SsCSHIS CSHB 
5se 5610 BS 5713. 5757 «+5785 5799 42 65866 5881 5927 
5951 6005 6082 6140 6196 6252 6295 6323 64 6461 §539 6589 
6659 729 «G7E4H)~—Ss«éBGSC“‘«é‘iC?SséDEG 69%3 69839 7081 70 
7118 7207 7224 7268 7 7345 7368 # #7396 7469 00 22 S3?s« 7561 
7581 7634 7655 7682 4867726 45 7760 78145 7856 7852 
7833 73 8024 e042 8080 8096 811i 98135 1 3 9234 
g256 ? 8286 8298 8329 8352 98390 e452 4 96984e 11100 11129 
L.ASOF oO01612 2568 «B11 1B 
CBA = OOLEDY 2e518 * 6819% Qe 39 10054 
L:¢51 9801600 498 3016 St 3leee 3153" 32028 2% 3292% 3335% 33368 3379% 3426% 3445s 
3480% 3466" 3514s * 05%  3655« Qis 37214 3763% 3825% 3844% 38S86x 3905s 
| 361+ % B17 x 70% Bb74s pelos 982 8937" 984Se geSge  gg6d« 
L.CSe 001610 se r] Me - we % Ae et * es . Six ee te ieee, 3566% * 
| ceies seeds SSG SEE «SEOLE «ELAS SEShE SEGUE SHEGE ESCEE dase ZBtEE FERC 


739 7476% 7547 7603% 8050% e8508* 8577# 8660% S8672e% 8815* 8836  88S6* 8865s 
9919 10037 
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p, 
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8 


ik 
= 
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a! 
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3 
8 
or 
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Bo 
gS 
a 
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BB 


mw 
~ 
£ 
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a 8° 
8 
Be 


cS 
8 


fel lata at etal 
-~ 
“8 


ae 


a 


g585 

be 
: 
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es 


OFFSET= 000115 
OFST = 000904 
OPERGO 046676 
OPERQe 046713 
OPEROY 046704 
OPEROE 046740 
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lghet 
121568 
10333 


4032 
34638 


lees3s 
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6366 6392% 
10128 

4] 3. = 
g535;  B3e53 
6820% 8867s 
9735 

797 g0s4 

S4se 

4775 4918 

E316 

SSil#  5SS14# 
SS10* SS17# 
9663 98393 

3077 =10312 

10335 le2l6éls 
8488 

950s 

4231 4250 

449] 4511 

See 5258 

cs9 S674 

Baie | 5885 

7227 7271 

81S3 8301 


lee4és 12890 
12891 
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6821% 


6391# 
34 4% 
* 


SS27# 
5S30* 


FO4 


88S7# 


6818* 
3486# 


10041 


8308 


S069 


6524s 
6523# 


B8bE# 


10126 
3S 12% 


10097 
8313 


5075 


6527 
6530% 


ese 
9828 10125 10644 # «10767 
10647 10766 11150 1115e% 
3567* 3614* 7752% #7967 
8318 97858 
6SS6* 9507% 
6553* 9519 
4377 438S* 4397 4429 
60S 4634 393 725 
SSlee SSi3* SS31%  5SS3e# 
5930 365 49 Sess 
6819 6890 6909 6951 
7114 5s 7146 7150 


7467% 8747 7540 7S4S% 
10781 10818* 10819* 10839 


SEG 0251 

11139# 

804S# 8157s 
4437% 4438s 
4726 4861 
SS44 SS46 
6526 6541 
6966 6980* 
7164 7167 
7599 7763 
10898 §=11i3e 







OPERIO 046747 leeze = 12eSS8 
OPERIe O467E5 lee33 = l2eS8s 12892 


OPERI6 047010 lee3S 3= 1ee638 «612899 
OPER2O 





OPER37 Seoeat 
Spee Bar87e cao iota 
047425 


| OPERY4 
OPROO1 o47504 le 
OPROo2 047533 2843 2860 
OPRODS 047541 2839 e334 
OPROO4 04757] 295i 123398 
OPROOS 047613 2805 123438 
SeRoeS 3 Beas Sota igssoe 123688 
Sprooe Denied 3080 12a8e 
OPROOS 950207 123878 
OPROIO 050257 S481 123948 
OPRO11 OSO411 4773. 4921 $072 
OPROl2 Oososs4 4774 124088 
OPROIi3 950560 4922 1D4SSs 

| OPROI4 O50564 3 12430 

| OPROIS 050570 4776 $4923 5074 

| OPROIE OS0604 124338 
OPROI? 051362 7333 «| 7482)~—=ié«dL 2008 
OPROI8 051477 44 125148 
OPROIS OSISES 11063 125248 
OPRO20 051730 ille?7 125418 

| OpROeL 052024 11155 125518 
ot 

| Se ES 

< + 

| OPTTST o4 2875 3788 c534 
OR = 000200 20178 
PACK = 000103 # 3153 

| PARBKO= 9009200 26908 5477 5 

| PARBKi= 000100 6918 S195 

| PARM 1720 172 218 

PAT = 000020 20668 

PATCH 060204 131918 

| PATO  O4SeEe2 0953 1186Ss 

| PATOS  O4E722 10958 1188Ss 

, PRTOY  O4E7E2 1093 11905 
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e 
OPERE4 7042 9846 lee38 il2268s 
OPER2SE 70S? 





GO4 















7040 7152 7158 7169 7175 = «122958 













123328 


124108 


124318 


s0ul* 3032 3043* 3048 4770 4775* 4918 "924% S069 S075* 
S4 5508 $515 aera 6509 6521 6S28 6557 7262 7330 
9Si4# 952e5*# 96937% 9564 9661 9816 9862 11070 

6562 6577 gs42 95008 


6528 
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7702 7788% 7890% 7986 8383%  S44ex gSeS* 





7323% 





PATOS o46022 10968 113258 
Paris. | Bueise t8a58 i 1ekes 
PAT11  O4616e 10983 119888 
PATI2 O46222 10988 120088 
PATI3 O46262 10993 120288 
PATI4 pibsee 10998 2048s 
TIS 11003 120688 
PATIE O4€42> 11008 11011 12088 
PCAs =-OO4OON 20738 
PCD }§== 010000 20748 
PERHLR 032634 94798 
PGE == 002000 20208 10329 
PGERR = 000020 7832 10331 121608 
PIP = 020000 20588 
PIRQ = 177772 18248 
PIRGVE= 00024 19188 
PROGEN - 11099 11126 «11151 11155# 11172 
PRO os 184ie 2883 299 53 
PRI = OO0040 18428 
Pee = 000100 1g43e 
PR3 = 000140 1844s 
PRY == 000200 18458 
PRE So5s0b igus ne: 
i, = 000340 i488 2730 2904 #2998 S503 6516 304% 99517 9529 
| PS == 177776 _ [8218 1822 
PSW = 177776 18228 
| PWRYEC= 900024 19138 2751* L17S4* 1175S* 11764* 11770% 11782* 11783 
ROCHR = 104410 11597 118338 
ore Ooi ge ke 
| sth 625 2893 2534 B462~=téCi‘éwBOS )«=Ssi‘iw73O)20OsC«<w7GS)~=—s«iBN?—s—sCi73972~=S 7815 = 7893 
| ROGATE= 100000 20778 
| ROHEAD= 000125 19898 4123 6389 #7683 7961 #8272 
ROLIN = 104411 11671 11834s 
ROOCT = 104412 2833 2844 )=—ss«sB1~=Ss«d1:18358 
ROSTHD 025114 4163 6354 98158 
ROY = 000200 1998s 2932 9998 11068 
REALBA O46502 10070* 121238 
REQLCY 121248 
REALSE O46510 6721 121268 
REGLTR O46506 6711 leless 
| REALE fay rae isis" 10241 121218 
| RECAL = 000113 13648 ees 3825 3886 ####7671 +7727 «+«23°x7949 sos. s2e35 e509 S78 gs&62 9s816 
| REFMT 001664 26998 2735 4O88* 421S* 4291x 4370% 44422" 4H76e 4536* 459S* 4679* 635S5* 6434 
6508* 6576 6655* 6870* 8230 8466* 11125 11137 
| REPNR = 100000 10578 122228 . 
| RESREG= 104414 9443 $542 9677 9896 9946 10160 10242 10246 10600 10620 119378 
| RESTRT 001730 21 27248 
_ RESVEC= 10 19088 
= 16 19678 8518 eS8& 
| RK 1 2% 7319% 
} . 
| 
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RKECPT= DOOrSE 
RKER = O00014 
RKMR1] = 000026 


= 000040 
K = 000117 
= 000101 
TCLK 001710 


000092 
00000e 
047501 
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7486 
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eS : 

= 
SWO3 = 000010 
SWO4 = 000020 
SWOS = 000040 
SWO&6 = 000100 
SWO7 = 000200 
SWOS = 000400 
SWOS = 001000 
SW1 = 000002 
SW10 = 002000 
SW11 = O04000 
SWi2 = 010000 
SW13 = 020000 
SW14 = 040000 
SW15 = 100000 
SWe = 000004 
SW3 = 000010 
SWY = 000020 
SWS = 000040 
Sw& = 000100 
SW7 6s 000200 
SW8 = 000400 
SWS = 001000 
-ACLO= 000100 
BRHM= 000100 
BRKE= 040000 
CART= 000400 
DIB = 002000 
DOOR= 000200 
DRA = 000040 
DROT= 020000 
DRY = 000200 
DSC = 040000 
FLT = 000200 
FORM= 001000 
FWD = 002000 
HDFL= 000200 
HDHM= 000040 
ICYL= 000040 
ILF = 900400 
LIMD= 020000 
LOAD= 010000 
MHD = 000400 
NMOV= 010000 
OFF = 002000 
PAR = 001000 
PIP = 920000 
PLO = 004000 
REY = 004000 
RTZ = 020000 
SECT= 000020 
SKI = 002000 
SPIN= 010000 
SPLS= 010000 
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; = 001 les 
Gs ete ehe 
S. = 040000 2117s 
S.UNS = 040000 21038 
5.VV¥ = 000100 20828 
S.WCLK= 000040 21228 
S.WGAT= 000100 21228 
S.WLE = 004000 21008 
S.WRL = 004900 2087 
§.xDO0K= 000020 21078 
S.XERR= 001000 21268 
TEAS: 88S 430g" - 
TCHKOP= 10943; 308c)6=s«a314S)=Sssis3189 ss: 3208 ~—Ss 321 3247 3263 3298 2430 3493 3520 23562 
3611 3697 3748 3969 4113 #4128 4164 4e42 4275 4321 355 4391 4444 
4505 = s« 4S64 78 4617? 464? 4bE2 4713 #4736 4795 4817 4873 4886 4949 
4966 1 S099 S114 Ss Si7e—s«S186 = S235) = S255 = $309 326 603 ‘S622 
5637 S687? ®#«©45710 5725 6273 5797 S858 878 5833 eaH4 963 «5978 Ed 
41 pL35 FER B38 P33e B38 10 83 2 5848 5374 
7338 #47357 738 7408 7497 7513 «#7519 7534 cso «7573'—~Cté«‘«7878~=Ctéié‘7S$939”~é‘é‘7#ES“‘L‘CG 
7646 766 7742 «#297868 «= «o781202=Sfs«003)s—i«‘iwgeC‘éiS? =Sti1OSCiéPH:—Ci—i‘éiLBS—“‘«é‘éi‘LY? 
8189 8245 #8253 826 8283 8 367 40 420 «8464 98532 8557 
e680 8831 850 8876 11112 411119 11147 118428 
TCHKWE= 104422 3130 3342 3388 #3451 3580 3628 3856 3864 #3912 4e62 4343 44068 4459 
4uS20-«—«dS3740~=Cfs«é*sSe7)—sé—‘éS 3G ~C«iSS)=Séi‘éwé70O2=CfsC«éB77&©2=si‘i‘éBSSS)~=Ssis71300=~Ss 7694 «=s«s7772~=Sfs7829—Ss 79048 
7377 «- 8209.s«aBB42~—s«118438 
TGETRK= 104420 3022 «3061 «3310s «3527's 3861 )«=Ssi386'76&—s—“‘ié872B©20Os«ié«37@9Ss«id797)—té<‘SLHD)=SssaSHH—s«EIO —C=SESB 
S666 9844 90 9890 10189 118418 
TIMCNT OO16S4 26838 bbs + gg 9832x 
TKVEC = OO0060 19168 11418% 11419s 
TLOADR= 104417 3 4 3154 3204 3213 324% # #3259 3294 # #3338 #3382 4 3se7) = 3447 
3482 4 4©=- 3489 9 3565 wy ir Be 20 Fo we 29 47 
3889 08 39668 4109. 4134 4238 es5)0Cf(Cis4318 «=s«d4336—t—‘z |S 4440 4455 
4Soi 4Si6 60 4613. «4643-4658 0S ss«4709—Sss«4Y4732 ? ygi4 4869 4893 
ug4u5 «4962—‘“‘sk‘d 72 | OS03l)620—(«SO9S)=Ss—«isS110-'—s«éSBS © 4©0.—sSsdS182 4«=0s«sS231 20s S2S1)=0sS5305)»=ss«s93230—Sfs«5371 
s4 5599 5618 5633 5 5708 «€—s«dS7e«=Ss«éS790=Sfs«édS7930=Ctsi‘«‘*Sg07)~=Sss«iSese~—ssCSS 
Sess «=s«és939—Ctété‘éwS39'5599 74 6033 O 6148 6204 6260 #6304 3 6371 6454 
6469 6546 6597 £6612 #6673 696 6737 6772 6826 6856 6899 6914 6956 
6971 6991 7089 7 71 7215 7e32 7279 #®#«3+77310 #7353 «#297378 «67404? 


ei43 «8159 «8205 = Beu2 «Set B279ssg284 S307 83398 ig 84 
8511 74 BEEY Ss GE7E BBE 7 8639 «BB4e §8= BBD B71 «11108 «11143118408 
TPVEC = OOODG4 19178 
| TRAPVE= 000034 19158 2748 2749s 
| TRKERR= 000020 6707 10149 121708 
TRIVEC= OOOO14 19108 
TSSINI= 104416 e989 3051 117 ggg ee) 328B 981 BASES BSE MHOL HSL BTN? 
| 3759382 yo 3683 3901 3955 409: 4107 4132 4ier 4216 4245 = Hage 
4325 4371 «= 424477538) 4586 = 4e93 «780 «4856S «4930 = S004 «= S081 §= SSH 
Sele 360 SH13. SH74 = 5584 Se6BS S754 5839S S924 = BOL «= 8070s Ble? 
6164 6240 6293 6320 6359 6387 6435 6535 6578 6656 6727 6813 6843 
6684 6942 «= 6981 7118 7200 7300 7366 7398 7464 7631 7699 7723 
7757 «7785 7811S 7849 79307 80 343 8373 «8380 
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TST 
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| 1ST27 011620 
TST3. 002322 
TST30 ©-01175e 
TST31 O12246 
TST32 «Ol e44e 
T5733 (012676 
| T5734 013064 
| TET3S + 013316 
| T5736 9013504 
TST37 013726 
| TST4  podate 
| TST40 = 14114 
TST41 014306 
TST4¥2 014502 
TST43 «© -014706 
TST44 §=O1Si 12 
| TST45 015572 
| TST4E 015776 
| TSt47 = O16202 
TSTs 456 
| T8750 Ole4e0 
| TSTS1 «Ole604 
| T5752 017030 
| T5753 017154 
| TST54 017300 
/TSTsS 017424 
| TSTSE 17550 
| TSTE7 017674 
| TS 
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T.BA 001544 26338 
7146 
T.CS1 001540 26318 
S434 
10253 
T.CS2 001550 26358 
T.DA 001S46 & 
1.08 001584 26418 
T.DCYL 901560 26398 
T.DS 001552 2636 
3312 
10255 
T.ECPS 001570 2643% 
T.ECPT 001572 2o44e 
T.ER 001554 2637% 
T.MR1 OO1S66 eb4es 
T.MRe 001574 2645s 
T.MR3 001576 26468 
T.SPAR 001562 26408 
T.WC 001S4e 26328 
7155 
RR= 00 075 
UFE = Q00400 20188 
UFERR = 3583 
UNLOAD= 000107 19828 
UNS = 040000 20438 
UNSERR= 040000 8344 
UPE = 920000 20238 
UPERR = 000100 $539 
VV = 0001 2054s 
WATSRT 034436 9614 
96538 
WCE = O40000 2024s 
WCERR = 000001 10019 
| WCKERR= 000004 6997 
| WLE = OO4000 2040# 
WLERR = 004000 121408 
WRDATA= 000123 19888 
5084 
6590 
7876 
WRDCNT OO16 27068 
WRONUM 001672 27058 
WRHEAD= 0001 ize 
= 0040 2057% 
WRT CHK= 000131 19918 
WRTGAT= O40000 20768 
SAPTHD 0002 2184 
| SASTAT= seeeee $280 
SATYC 032556 3251 
| Servi ues 95498 
SATY 0325 $250 
SATYY 032550 92528 
SAUTOB 001134 22218 
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10337 

10339 
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$392 
7164 
30 


11494 
2838% 


S442 S446 
168 10067 
340S 3439 
9667 9742 

13087 

4143 10197 
10157 10159 
13089 

3064 3056 
3417 3468 
13077 13087 
S449 5453 
7177 = 10017 
12158% 

9623 9626 
121494 

4395 4448 
5295 5364 
6949 7082 
10922* 11046 
10921 11045 
4296 4375 
11130 

6984 7097 
11651 

2881 2905 


SS44 S547 5551 
4 1015S 13090 
346 3502 3534 
3980% 998 9985 
10254 13077 13087 
13089 ; 

3136 3148: 3162 
3474 3662 ° 3677 
5558 5561 5564 
10020 10056 10099 
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$cmi = 000020 
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som 000020 
SONTLC O45050 
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SOEVMN 8 O01354 
SDORGN 031442 
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SENDC 1276 
SENULL O31446 
SENV po 318 
SENVM 131 
OF pies 
OPCT O31 
SERFLG 001102 
SERMAX O01115 
SERROR 032000 
SERRPC OOLLIE 
RIB 001360 
SERTTL OOllie 
SESCAP 001264 
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SFATAL 001300 
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17858 1797 
3 2754 
3600 3£50 
4535 4594 
5473 5583 
6254 6433 
7721 7810 
8976 9093 
$139 $140 
$313 9322 
eesls 
1808 18093 
9135 91698 
1188s 
eeBes S31b0« 
ectbe 2753% 


MACY11_ 27( 1006 
CROSS REFERENC 
1l2S2 =: 11556 
5391 98+ 
7C3e* 4 le 
5392s * 
7033% 7042 
10871® 13091 


11772% 11773% 117898 


2744 
$367 


e746 
9375 


9392# 
2328* 


DOS 


OS-0CT-76 09:17 PAGE 263 
TABLE -- USER SYMBOLS 


11627 


439% 
3ie8: 


5439% 


+ 


7151 
13095 


2748 
11439 


71 
2988+ 


11644 


S44Se 
7159# 


S44b# 
7160% 


2750 
11444 


10618 


9891 
3197% 


11702 


ihe 


S4S3% 
7 168% 


e7Se 
11445 
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STTYIN O4SO40 115894 11595 11607 11625 11639 116438 
STYPSN= ee U 11829 
srypee bass tases* iifSoe igie 11824 
He? pareD yigoy | HH2B" H1SAE HESS. eyo tasue 
§TYPEX 043200 11045 11247 112508 
STYPOC 043452 113488 11825 
free ese Hast tee 
NI 131 S5ace 
SUNT TM 4 21958 
SUSWR 001322 22928 
| SVECTI 001346 23178 2840 2849% 2050# 2853 28738 2874 2876 2880 
SVECT2 001350 23188 
nas et 
$$SWOg= 000112 31698 917 $1718 91728 91738 ‘S174e 91758 91768 91778 91788 91798 ® 91818 
oat Get let GS) Gal Get gat Get at ae at tas 
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Soase Sesbe Ses78 Sos8e $2398 Se408 92418 2428 92438 
| $OFILL 043651 Li34S* 11349" 11359 113948 
| SHOCAT 990000 21608 9106 9331 
Pe = 064604 21458 2161 21658 21718 21738 2180 21818 21938 22038 2274 2741 & 
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COMMEN 19198 

ENOCOM 19158 

ERROR AFige i~ 
31 160 
3264 327 
3409 341 
3506 3518 
3632 3 
3780 7&7 
3302 $id 
411 4114 
4243 4246 
4404 = 4410 
457 45759 
4737 4743 
4893 4300 
5050 So82 
S217 S233 
5373 5278 
sssS S562 
57 S711 
cese cess 
S92 533 
615 616 
6321 6233 
6471 6474 
6675 7 
6814 $ 
&S7— 6982 
7134 7153 
7326 7334 
7484 7433 
7591 75344 
7704 7724 
7865 7869 
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8145 £148 
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B58 S666 
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MSG eeese 2891 e92e08 2922 es4ge 2952 31898 3191 3e268 3228 32788 3280 g3é28 3324 33558 
3s 3590 3638 3709 37Se2 3810 38 





3357 3418 cy 35888 3 36368 
23208 40778 4079 41978 
4527 4596 468l@ 4683 4755s 
51358 5137 Se0s* S208 52798 
S659 siCsS744e=«=S74G0Cti‘é‘*S CSG 53138 
62278 62838 6285 63108 63 
6641 £7998 1 38748 63208 
76208 77108 7713 78018 
8216 4238 S S468 gssus 
MULT 19138 
NEWTST 19198 2889 2920 2950 
3874 3920 4077 «= 4187s 4e79—Ctsi‘«Y'S 
soss)(iS135~—CSts«CSD Se7g._— ti‘ S S404 
6171 6283 6310 6344 6424 
7445 897620 020—s (7711 7801 7836 ©7917 
OPCHK 27168 4713 4736 4799 4817 4873 
5303 5226 S603 Sb2e2 5637 #5687 
5978 6037 609% 6152 #6208 6264 
6830 6850 6903 £6918 975 
7408 se 7513 = 7519 
7311 8003 036 8062 8108 8124 
e402 8420 ~ 8531 e533 5 
POF 19198 9293 $705 5 SSsf 
| . 13138 9253 S 9276 Sete 97 
| RESDC 27138 4744 4 4894 4975 SO44 
£103 + 6161 6217 73. +6407 #6482 
| RKLOAD 27158 4709 4732 4795 4814 “i535 
5305 S322 s«$:371 5424 sSe4 0=—s_s«S3599 
5874 $938 $959 #15974 33 
6597 6612 6673 £6696 6737 6772 
7126 7215 7232 7279 7310 7353 
7752 «67768~—SssW7B8E 7900 «= 7941 
| 4 8273 fe 8362 83 
Soak 8860 11108 11143 
SCOPE 18148 ee% ar 2987 2196 3236 
3881 tes 4 4213 nits viel] 
S145 14 5289 $358 S411 
6182 6238 43—s—s«s& e911 6318 6353 6432 
: 7629 20 7809° 7847 7927 
| SETPR 19198 11572 
SETTRA 118168 11 ll 11827 11828 11830 
118641 11842 11843 11844 11845 11846 
11856 11857 
SETUP 19198 27 
SKIP 19198 
| SLASH 19198 
| SPACE 19198 
STARS 19198 2177 2179 2186 2199 2274 
seni ge78 3328S 3322-3328 
3714 3756 3808 3817 38 
4359 «4367 44]. 4419-444 447 
ye45 sy 491 4y9e5 = s4994~—Ss—«S$1085 
S404 SHiO0 sSHS8 S471 5574 S581 
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/ . ABS. O64604 000 


ORS DETECT ] 
BEFAULT EL SSALS GENERATED: 0 


DSKZ2: DZREKC, DSKZ: DZREKC. SEQ/CRF /SOL/DOC=DZREKC 
RUN-TIME: 103 112 10 SEC Ons 

RUN-TIME RATIO: 398/226=1. 

CORE USED: 30k (59 Bears) 


DOCUMENT PAGES: 268 





